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EXECUTIVE  SUMMARY 


>y 

A.  BACKGROUND.  Now  more  than  ever  Project  Managers  must  assess  the 
extent  to  wfiich  their  system  ought  to  be  competed.  While  current 
guidance,  including  the  current  AMC  Pamphlet  715-9,  the  Competition 
Decision-Assist  Package,  is  useful  in  analyzing  the  competition  decision, 
a  need  exists  for  an  improved  automated  process  for  providing  decision 
support  information  to  managers. 

B.  STUDY  OBJECTIVE.  The  objective  of  this  study  was  to  develop,  test, 
and  effectively  operate  a  transportable  microcomputer  system  version  of 
the  Competition  Decision-Assist  Package  (CDAP)  in  order  to  enhance  its 
versatility  in  the  field. 

C.  SUMMARY.  The  Competition  Decision-Assist  Package  for  the  Microcomputer 

is  a  microcomputer  FORTRAN  version  of  CDAP  that  operates  on  an  IBM  Personal 
Computer  and  compatibles.  It  performs  just  as  the  CDAP  does,  but  it  is 
more  easily  transported  to  the  field  via  floppy  disk.  /\  J  tj  ‘  ’  / 4  r.j  - 


TABLE  OF  CONTENTS 


PAGE 


EXECUTIVE  SUMMARY .  1 

SECTION: 

I.  INTRODUCTION 

A.  Background .  1 

B.  Objective .  2 

C.  Approach .  2 

II.  CDAP  FOR  THE  MICROCOMPUTER 

A.  Competition  Analysis .  3 

B.  Competition  Decision-Assist  Package  for  the  Microcomputer 

(CDAPM) .  4 

III.  Using  CDAPM 

A.  What  CDAPM  Needs .  5 

B.  Protecting  CDAPM  and  Data .  5 

C.  Making  CDAPM  Go .  6 

APPENDIX  A 

CDAPM  User's  Guide .  A-l 

APPENDIX  B 

Flowchart  for  CDAPM . B-l 

APPENDIX  C 

CDAPM  Program  Listing .  C-l 

APPENDIX  D 

CDAPM  Technical  Reference .  D-l 


SECTION  I 


INTRODUCTION 


A.  BACKGROUND 

With  the  enactment  of  the  Competition  in  Contracting  Act  (CICA)  in 
1984,  competition  is  expected  in  the  production  of  major  weapon  systems. 
Now  more  than  ever  Project  Managers  (PM)  must  assess  the  extent  to  which 
their  system  ought  to  be  competed.  In  APRO  82-08,  Competition  Decision- 
Assist  Package  (CDAP),  the  Army  Procurement  Reseach  Office  (APRO)  developed 
a  decision-assist  package  consisting  of  a  computer  program  and  a  guidance 
document  to  assist  the  PM's  analytical  staff  in  evaluating  the  likely  cost 
effects  and  non-cost  effects  of  competitive  acquisition  strategies.  In 
APRO  84-09,  CDAP-Enhanced,  the  Army  Procurement  Research  Office  expanded 
the  competition  analysis  capability  and  improved  the  output  presentations 
of  the  model . 

While  current  guidance  is  helpful  in  analyzing  the  competition  deci¬ 
sion,  a  need  exists  for  an  improved  automated  process  for  providing 
decision  support  information  to  managers.  The  model  should  provide  a 
general  framework  for  analysis  that  can  be  readily  modified  to  accommodate 
the  acquisition  peculiarities  of  a  particular  system  under  consideration. 
Further,  most  of  the  analytical  information  needs  to  be  available  to  the 
manager/deci sionmaker  in  a  form  which  will  readily  enable  him  to  assess 
significant  total  cost  differences  between  alternatives.  In  order  to 
better  serve  the  needs  of  a  manager/decisionmaker,  a  transportable  and 


automated  CDAP  tool  must  be  available  to  the  PM's  analysts.  Recent 
hardware  advances  and  integrated  state-of-the-art  software  systems  provide 
an  environment  which  lends  itself  to  the  transformation  of  CDAP  from  a 
mainframe  computer  mode  to  a  microcomputer  mode. 

B.  OBJECTIVE 

The  objective  of  this  effort  was  to  develop,  test,  and  effectively 
operate  a  transportable  microcomputer  system  version  of  the  CDAP  model  in 
order  to  enhance  its  versatility  in  the  field.  It  was  the  intent  of  this 
project  to  provide  a  timely  solution  to  the  problem  of  transportability  of 
CDAP  to  the  field. 

C.  APPROACH 

The  study  approach  to  provide  a  Competition  Decision-Assist  Package 
for  the  Microcomputer  (CDAPM)  was  as  follows: 

1.  Obtain  a  "state-of-the-art"  transportable  microcomputer  for  use 
within  APRO. 

2.  Download  the  mainframe  version  of  CDAP  and  tailor  the  FORTRAN 
coding  as  required  to  ensure  the  precise  transition  of  the  CDAP  model 
from  the  mainframe  computer  to  the  microcomputer. 

3.  Test  the  microcomputer  version(s)  for  accuracy  and  structural 
integrity. 

4.  Develop  guidance  for  the  microcomputer  version  of  CDAP. 

5.  Recommend  pamphlet  changes  as  appropriate  to  provide  adequate 


guidance  to  users. 


SECTION  II 


CDAP  FOR  THE  MICROCOMPUTER 


A.  COMPETITION  ANALYSIS 

It  is  generally  accepted  that  competition  can  reduce  costs,  improve 
quality  and  performance,  and  enhance  the  industrial  base;  and  this  has 
usually  been  the  case.  In  order  to  maximize  the  benefits  from  competition, 
a  thorough  analysis  should  be  made  of  each  system  to  structure  the  appro¬ 
priate  competition  strategy.  This  analysis  typically  focuses  on  both  the 
qualitative  and  quantitative  factors  impacting  the  competition  and  further 
breaks  the  quantitative  cost  factors  into  non-recurring  investment  costs 
and  recurring  unit  costs. 

AMC  Pam  715-9  describes  these  factors  and  offers  the  CDAP  as  a  means  to 
analyze  primarily  the  recurring  cost  savings.  The  economic  analysis  model 
selected  for  the  approved  CDAP  guidance  is  based  upon  production  improve¬ 
ment  (learning  curve)  theory  that  involves  making  a  comparison  on  non¬ 
recurring  cost  ( i . e . ,  Government  and  contractor  investment)  and  recurring 
cost  savings.  Although  this  approach  requires  experienced  procurement 
judgement,  it  is  reasonably  quantitative  and  repetitive  in  nature. 

To  increase  the  acceptance  and  use  in  the  field,  some  enhancements  to 
the  current  CDAP  were  required.  These  include  improved  output  presenta¬ 
tion  formats,  expanded  analysis  capability,  and  increased  "transport¬ 
ability"  of  the  package  to  the  field.  It  is  the  intent  of  this  study  to 
meet  the  transportability  requirements.  Planned  improvements  for  CDAP  in 


the  future  include  incorporating  the  non-recurring  investment  cost  analysis 
directly  into  the  CDAP.  Currently  it  is  done  separately  to  supplement  CDAP 
and  provide  a  complete  analysis. 

B.  COMPETITON  DECISION-ASSIST  PACKAGE  FOR  THE  MICROCOMPUTER 

The  Competition  Decision-Assist  Package  for  the  Microcomputer  (CDAPM) 
was  written  in  FORTRAN  for  the  IBM  PC  and  compatible  computers.  It  is 
virtually  the  same  program  as  the  mainframe  Competition  Decision-Assist 
Package-Enhanced  (CDAP-E,  APRO  report  84-09  by  V.  Gail  Lankford).  Some 
changes  were  made  to  the  way  CDAP-E  handles  output  from  the  user  and  the 
way  it  displays  its  results.  Other  changes,  invisible  to  the  user,  had 
to  be  made  to  adapt  CDAP-E  to  the  software  environment  of  the  PC. 
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SECTION  III 


USING  CDAPM 


A.  WHAT  CDAPM  NEEDS 

CDAPM  absolutely  requires  the  following  items: 

1.  An  IBM  PC  or  compatible  computer  with  128K  of  user  memory  and 
one  double-sided,  double-density  5.25  inch  diskette  drive. 

2.  DOS  for  that  PC:  2.0  or  a  higher  version. 

3.  This  document. 

4.  The  diskette  accompanying  this  document. 

Recommended  for  CDAPM,  but  NOT  required: 

1.  A  printer. 

2.  An  additional  disk  drive  (hard  disk  is  best). 

3.  A  math  coprocessor  chip  (Intel  8087  or  similar). 

B.  PROTECTING  CDAPM  AND  DATA 

Users  MUST  NOT  use  the  distribution  diskette  to  run  CDAPM. 

The  file  CDAPM.EXE  should  be  copied  from  the  distribution  onto  a  hard 
disk  or  a  dedicated  CDAPM  execution  diskette.  The  distribution  should  then 
be  put  in  a  safe  place.  If  two  backups  are  desired,  the  distribution  dis¬ 
kette  can  be  duplicated  with  the  DOS  commands  DISKCOPY  or  COPY;  CDAPM  is  not 
copy-protected. 

CDAPM  data  files  should  be  backed  up  before  every  CDAPM  session. 
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APPENDIX  A 


CDAPM  USERS'  GUIDE 


A.  MODEL  OVERVIEW. 

This  interactive  computer  program  has  been  designed  to  calculate  esti¬ 
mates  of  recurring  costs  associated  with  two  producers  involved  in  a  compe¬ 
titive  unit  production  effort.  The  concepts  employed  in  this  program  are 
those  described  in  Chapter  III  of  APRO  82-08,  Competition  Decision-Assist 
Package.  The  model  is  based  on  learning  curve  or  cost-improvement  curve 
theory,  which  states  that  a  relationship  exists  between  production  quantity 
and  unit  price  such  that,  as  the  quantity  produced  doubles,  the  unit  price 
will  be  a  fixed  percentage  less  than  the  unit  price  prior  to  the  doubling. 
For  example,  if  a  95%  learning  curve  is  being  observed,  the  cost  of  the 
200th  item  will  be  95%  of  the  cost  of  the  100th  item.  According  to  this 
theory,  total  recurring  cost  (c)  can  be  computed  as  the  sum  of  these  declining 
unit  costs,  and  represented  by  the  following  function: 


<pqi 


where  a  represents  first  unit  cost,  b  is  the  rate  of  cost  improvement,  and 
the  production  quantity  extends  from  unit  q^  to  q%. 

Certain  modifications  to  this  fundamental  expression  are  necessary  to 
accomodate  any  shifts  in  unit  price  and/or  rotation  of  the  cost-improvement 
curve  which  are  attributable  to  the  introduction  of  competition  into  the 
process.  A  shift  in  unit  price  is  represented  by  an  equivalent  shift  in  the 
first  unit  cost.  A  change  in  the  cost-improvement  curve  is  modeled  by 


adjusting  the  expression  exponent,  b,  an  appropriate  amount.  Also,  since  it 
is  common  for  the  analysis  to  consider  production  efforts  spanning  several 
delivery  years,  it  may  be  desirable  to  include  the  time  value  of  money  in  the 
analysis.  This  can  be  accomplished  by  multiplying  each  year's  production  cost 
by  an  appropriate  discount  factor.  Thus,  the  basic  relationship  becomes  for 
year  i : 

ci  =  ai  ( 1-Pi )  ^  aq  (b'ai) 
q=TT-l+l 

where  Cti  represents  the  discount  factor  for  year  i,  q^  represents  the  produc¬ 
tion  experience  of  a  producer  at  the  end  of  year  i,  p.,-  is  the  percent  reduc¬ 
tion  in  unit  cost  at  year  i  due  to  a  shift  in  unit  price  and  (7^  is  the  rel¬ 
ative  change  in  the  cost-improvement  rate  at  year  i  due  to  rotation. 

Any  combination  of  adjustments  can  be  applied  for  any  production  year,  as 
appropriate.  When  no  adjustments  are  made,  the  expression  reverts  to  its 
original  form. 

The  total  program  recurring  cost  can  be  computed  by  evaluating  the  given 
expression  for  each  production  year  and  summing  the  results.  The  total  cost, 
C,  for  n  years  is  represented  by: 


c=  Zomi-p,) 


51  aq 

q=qiri+i 


Costs  may  be  computed  in  constant  or  in  discounted  dollars  at  the  option  of 


the  user. 


The  result  of  the  effort  to  compute  the  total  program  recurring  costs, 
based  on  the  cost  effects  of  competition,  depends  greatly  on  the  accuracy  of 


the  input  data  which  are  developed  by  the  user  and  provided  interactively  to 
the  model.  If  all  the  parameter  values  were  known  with  certainty,  the 
alternative  strategy  costs  could  be  easily  computed.  However,  when  the  para¬ 
meter  values  are  not  known  with  certainty,  as  is  often  the  case,  a  range  of 
values  must  be  judgementally  assigned  to  each  data  element,  with  the  range 
reflecting  the  general  level  of  uncertainty.  In  this  CDAPM  model,  each  fac¬ 
tor  of  the  basic  cost  relationship  is  treated  as  a  triangular  distribution 
of  values  with  minimum,  most  likely,  and  maximum  magnitudes.  The  model  uses 
Monte  Carlo  techniques,  randomly  sampling  from  these  distributions  for  each 
simulation.  By  repeating  the  process  many  times,  a  range  of  probable  costs 
is  developed. 

Based  on  the  simulation,  the  program  output  provides  both  the  mean  and 
median  estimates  of  the  total  program  recurring  costs,  minimum  and  maximum 
probable  costs,  the  range  of  those  costs,  and  the  fourth-spread  values:  the 
values  which  bound  the  middle  fifty  percent  of  the  simulated  results.  For 
multiple  production  periods,  the  cost  of  each  period  is  given  for  each  producer 
along  with  an  aggregate  lot  cost.  The  program  will  also  determine  which  of 
the  two  producers  is  most  likely  to  w*n  a  split  buy  award  and  will  display 
the  relative  win  percentage.  Finally,  options  also  allow  a  cumulative 
probability  versus  total  program  recurring  cost  and  probability  density  plots 
to  be  displayed. 

B.  ASSUMPTIONS/CONSTRAINTS. 

It  is  well  recognized  that  program  logic  influences  model  results  and  can 
introduce  biases  into  those  results.  Assumptions  inherent  in  the  model  logic 
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should  be  known  to  the  user  so  he  can  better  assess  the  appropriateness  of  the 
model  as  a  tool  for  his  analysis.  The  following  assumptions  and  constraints 
are  embedded  within  the  algorithms  and  code  of  CDAP  and  CDAPM: 

1.  The  first  producer  whose  data  is  input  to  the  model  is  considered  the 
"Prime". 

2.  The  model  is  constrained  to  consider  not  more  than  two  competitors  in 
a  simulation. 

3.  "All  or  nothing"  lot  awards  go  the  "Prime"  until  there  is  a  split 
award.  Thereafter,  "all  or  nothing"  lots  are  awarded  to  the  producer  with 
the  lowest  cumulative  average  unit  cost  prior  to  that  lot. 

4.  On  split  awards,  the  major  portion  of  the  lot  goes  to  the  producer 
with  the  lowest  cumulative  average  unit  cost  prior  to  that  lot  being  awarded. 
Exception:  If  the  first  lot  in  the  simulation  is  a  split  award,  the  major 
portion  of  the  lot  is  awarded  to  the  "Prime." 

5.  If  a  lot  is  split  into  two  equal  parts  for  award,  it  is  assumed  that 
the  two  producers  are  fully  competitive  and  would  bid  the  same  price.  The 
model  sets  the  "Second  Source"  lot  cost  equal  to  that  computed  for  the  "Prime" 
for  this  lot. 

6.  For  lots  which  are  split  into  two  equal  parts,  the  Prime  split  win 
percentage  displayed  in  the  output  result  will  be  100%.  This  statistic  is 
meaningless  in  this  instance,  as  no  computation  is  made  in  the  model  to 
determine  which  producer  would  have  won  the  major  portion  of  the  lot  if 
the  lot  had  not  been  split  equally.  The  user  can  determine  the  percentage  of 
time  each  producer  would  win  the  major  portion  by  splitting  the  lot  unequally 
and  running  a  sensitivity  analysis. 
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7.  When  a  range  of  values  is  input  to  the  model  for  a  data  element,  a 
triangular  distribution  is  assumed  and  values  are  computed  as  needed  using 
a  Monte  Carlo  sampling  technique. 

8.  Ten  percent  (10%)  discount  factors  are  used  when  the  option  to 
discount  is  selected. 

9.  The  magnitude  of  the  analysis  is  limited  to  twenty-five  (25) 
production  lots. 

10.  The  simulation  is  limited  to  5000  iterations. 

C.  EXECUTION  OF  COMPUTER  PROGRAM. 

The  program  has  been  divided  into  three  basic  operational  modes:  data 
file  create,  data  file  modification,  and  simulate.  Each  of  these  modes  are 
described  in  the  sections  which  follow  and  example  data  files  are  given. 
An  example  session  for  each  mode  is  also  provided. 

1.  Data  File  Create  Mode. 

This  program  mode  allows  data  files  to  be  created  interactively  by 
following  prompts  given  at  the  user's  terminal.  A  number  of  the  input 
parameters  require  three  values  to  be  entered.  If  conditions  do  not  war¬ 
rant  a  range  of  values,  the  same  value  is  entered  for  each  of  the  three 
required  entries.  The  following  information  is  requested: 
a.  Desi red  fi le  name. 

When  a  proposed  file  name  is  entered,  its  existence  is  checked 
to  determine  if  another  file  with  the  entered  name  already  exists.  If  the 
name  does  not  already  exist,  it  is  accepted  for  use  with  the  file  being 
created.  If  the  name  already  exists  in  the  user's  directory,  the  program 


will  ask  for  another  name.  This  is  done  to  prevent  over  writing  an 
existing  file. 

b.  Number  of  production  lots  to  be  evaluated.  (Limited  to  25) 

c.  First  unit  cost  for  prime  producer,  (minimum,  most  likely, 

maximum) 

d.  First  unit  cost  for  the  second  source.  (minimum,  most  likely, 

maximum) 

e.  Prime  producer  performance  curve  slope,  (minimum,  most  likely, 
maximum)  for  example:  .88,  .92,  .95 

f.  Second  source  performance  curve  slope.  (minimum,  most  likely, 

maximum) 

g.  Individual  lot  data. 

(1)  Major  split  quantity /minor  split  quantity.  If  it  is 
desired  to  establish  a  sole  source  producer  baseline,  all  lot  quantity  is 
entered  in  the  major  split  value.  The  output  will  then  only  reflect 
results  for  the  prime  producer  under  sole  source  conditions.  Computation 
of  lot  costs  for  split  buy  awards  are  based  on  a  major/mi  nor  quantity 
award  to  each  producer.  For  a  given  cycle  of  the  simulation  when  unequal 
values  have  been  entered  for  the  major  and  minor  split  quantities,  the 
program  awards  the  major  split  quantity  to  the  producer  having  the  lowest 
unit  price  prior  to  the  given  lot  (adjusted  for  any  shifts).  This  approach 

to  dealing  with  split  awards  may  not  be  appropriate  in  all  cases.  An 

alternate  method  is  available  within  the  program.  By  entering  equal  values 
for  the  major  and  minor  split  quantities,  a  "composite"  performance 
approach  is  invoked.  The  total  lot  will  be  split  evenly  between  the  two 
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producers,  and  the  model  will  assign  equal  lot  costs  for  each  producer. 
This  simulates  both  producers  behaving  in  exactly  the  same  manner. 

(2)  Prime  producer  competition  shift  percentage  (minimum,  most 
likely,  max imum)/second  source  competition  shift  percentage  (minimum,  most 
likely,  maximum).  Shifts  are  entered  relative  to  a  base  of  1.0.  If  no  shift 
is  expected  to  take  place,  enter  1.0.  If,  due  to  competition,  you  expect  the 
prime  producer  to  lower  his  unit  price  by  8  percent,  that  would  be  entered  as 
.92  (1  -  .08).  If  the  range  is  expected  to  be  a  5  to  12  percent  decrease, 
then  the  values  entered  would  be  .88,  .92  and  .95  (in  each  case  modifying  the 
base  of  1.0  by  the  percent  shift).  The  model  can  also  handle  an  increase  in 
unit  price.  A  2  percent  increase  would  be  entered  as  1.02. 

(3)  Prime  producer  curve  competition  rotation  (minimum,  most 
likely,  maximum)/second  source  curve  competition  rotation  (minimum,  most 
likely,  maximum).  Entry  of  performance  curve  rotation  values  is  based  on 
slope  percentage  points.  If  the  basic  curve  slope  had  been  entered  as  .93 
and  is  expected  to  reach  a  value  of  .91  after  competition,  the  rotation 
entry  would  be  .02  to  indicate  a  downward  rotation.  Upward  rotations  may  be 
indicated  by  using  negative  input  values.  An  example  of  inputs  for  a  down¬ 
ward  rotation  is  .01,  .02,  .03. 

To  maximize  ease  of  data  review,  appropriate  headings  are  stored  along 
with  the  data  entries.  It  is  thus  possible  to  quickly  review  the  contents  of 
individual  files  for  accuracy  without  utilizing  the  available  file  modifica¬ 
tion  mode,  if  desired. 

2 .  File  Modi fy  Mode. 

Changes  to  existing  data  files  can  easily  be  made  using  the  modify 
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mode.  When  this  mode  is  entered,  the  name  of  the  data  file  to  be  modified 
is  requested.  All  information  in  the  file  is  then  displayed  along  with  a 
reference  number.  Entry  of  the  apropriate  reference  number  causes  the  data 
entry  prompt  for  the  affected  element  to  be  displayed. 

While  in  this  mode  it  is  possible  to  extend  the  number  of  lots  to  be 
evaluated  by  simply  changing  the  entry  for  number  of  lots.  When  that  value 
is  increased  the  program  will  automatically  display  the  lot  data  prompts 
for  the  new  lot  or  lots.  It  should  also  be  noted  that  if  one  entry  for  a 
given  lot  is  to  be  modified,  all  data  entry  prompts  for  that  lot  will  be 
given.  The  data  elements  that  remain  unchanged  are  simply  reentered. 

3.  Simulation  Mode. 

When  the  simulation  mode  is  entered,  the  user  is  queried  by  prompts 
for  the  information  necesary  to  execute  the  simulation.  The  name  of  the 
appropriate  data  file  for  the  simulation  is  requested  and  verified  for  its 
existence.  Once  the  proper  data  file  has  been  established  the  user  is 
asked  for  an  arbitrary  whole  number  between  1  and  999,999,  and  then  whether 
a  cumulative  probability  plot  and  a  probability  density  plot  are  desired. 
The  desired  number  of  simulation  cycles  must  be  input  (5000  is  the  maximum 
allowed).  Choosing  the  same  arbitrary  whole  number  and  the  same  number  of 
cycles  on  two  different  runs  of  CDAPM  will  cause  CDAPM  to  produce  identical 
results  on  the  two  runs.  Then  the  user  selects  whether  the  option  to 
discount  is  to  be  implemented.  If  a  negative  response  is  given  to  this 
prompt,  output  results  will  be  in  constant  base  year  dollars.  A  positive 
response  will  cause  the  program  to  request  the  lot  number  that  discounting 
should  begin.  When  discounting  is  selected  the  output  will  be  annotated 
accordingly.  Discounting  in  this  program  is  based  on  yearly  midpoints. 
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Basic  program  output  consists  of  a  presentation  of  the  total  average 
cost  and  other  statistical  indicators  of  central  tendency  and  spread, 
along  with  individual  lot  average  costs.  Basic  output  also  displays  the 
individual  input  parameters  derived  from  the  specified  file.  Display  of 
the  probability  plots  was  made  optional  to  minimize  printing  time  if  that 
information  is  not  actually  needed  for  a  given  analysis. 

4.  Sensitivity  Analysis. 

The  analyst  is  encouraged  to  check  the  sensitivity  of  the  simula¬ 
tion  output  results  to  input  parameters  of  concern.  This  is  readily 
accomplished  by  modifying  one  parameter  in  the  input  file,  rerunning  the 
simulation,  and  comparing  the  new  results  with  those  of  the  initial  run. 
For  this  comparison  purpose  the  simulation  should  be  run  for  the  same 
number  of  iterations  and  same  arbitrary  whole  number  each  time.  Although 
Monte  Carlo  techniques  are  used  in  the  simulation,  this  will  cause  no 
problem  when  comparing  the  results  of  the  sensitivity  analysis  with  the 
baseline,  so  long  as  both  runs  are  performed  on  the  same  ADP  system. 

D.  EXAMPLE  INPUT  DATA  FILES. 

1 .  Example  1. 

This  example  sets  up  data  for  a  sole  source  baseline.  The  produc¬ 
tion  period  covers  four  years.  Note  that  all  lot  quantities  are  placed  in 
the  major  split  category,  and  that  no  performance  curve  shifts  or  rotations 


are  entered. 


PRIME  FIRST  UNIT  COST - HIN>  80000  MOST  LIKELY)  100000.  MAX)  127000 


SECOND  SOURCE - MIN)  0  MOST  LIXELY)  0.  MAX)  0. 

PRIME  PCURVE  SLOPE - MIN)  910  MOST  LIKELY)  .930  MAX)  930 

SECOND  SOURCE . MINU.000  MOST  LIKELY)!  000  MAX)!  000 


LOT  LOT  OUAN  SHIFT" FACTOR  SHIFT  FACTOR  ROTATION  FACT  ROTATION  FACT 

•  PRIME  SECOND  SOURCE  PRIME  SECOND  SOURCE 

MAX  MIN  MIN  ML  MAX  MIN  ML  MAX  MIN  ML  MAX  MIN  ML  MAX 
1  1000  0.  1  00  1.00  1.00  1.00  1.00  1.00  00  .00  00  00  00  00 

2  1000  0.  1.30  1.00  1  00  1.00  1  00  1  00  00  00  .00  00  00  00 

3  2500.  0.  1.00  1  00  1.00  1  00  1  00  1  00  .00  .00  .00  00  00  00 

4  3000  0  1  00  1.00  1.00  1  00  1  00  1  00  00  .00  .00  .00  00  00 


Figure  A-l.  Example  1  Input  Data  File 


2.  Example  2. 


This  example  sets  up  a  file  for  a  six  year  production  program  where  a 
split  buy  competition  is  introduced  in  the  first  year  with  a  buy-out  in  the 
fifth  and  sixth  years.  Note  that  shift  factors  are  introduced  for  both  pro¬ 
ducers  in  the  second  year,  and  both  shift  and  rotation  are  introduced  in  the 
third  year  as  the  producers  respond  to  competitive  pressures. 


PRIME  FIRST  UNIT  COST---MIN)  100000  MOST  LIKELY)  140000  MAX)  200000 

SECOND  SOURCE--- . --MIN)  90000  MOST  LIKELY)  1  40000  MAX)  2  1  0000 

PRIME  PCURVE  SLOPE - MIN)  870  MOST  LIKELY)  940  MAX)  980 

SECOND  SOURCE . MIN)  850  MOST  LIKELY)  940  MAX)  970 

LOT  LOT  QUAN  SHIFT  FACTOR  SHIFT  FACTOR  ROTATION  FACT  ROTATION  FACT 
•  PRIME  SECOND  SOURCE  PRIME  SECOND  SOURCE 


MAX  MIN  MIN  ML  MAX  MIN  M  L  MAX  MIN  ML  MAX  MIN  ML  MAX 


500 

300 

t 

00 

1 

00 

1 

00  1 

00 

1  00 

1  00 

.  00 

00 

00 

00 

00 

00 

1300 

300 

94 

94 

98 

93 

98 

100 

00 

.  00 

00 

00 

00 

00 

2300 

1200 

94 

98 

1 

00 

94 

94 

98 

02 

04 

04 

01 

03 

04 

4000 

2000 

1 

00 

1 

00 

1 

00 

95 

97 

1  00 

00 

00 

00 

02 

04 

03 

4000 

0 

1 

00 

1 

00 

1 

00 

94 

98 

1  00 

.  00 

00 

00 

00 

00 

00 

4000 

0 

1 

00 

1 

00 

1 

00  1 

00 

1  00 

1  00 

00 

00 

00 

00 

00 

00 

Figure  A-2.  Example  2  Input  Data  File 
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E.  PROGRAM  EXECUTION  EXAMPLES. 


FILE  CREATE  MODE  EXAMPLE  SESSION 

The  following  program  modes  are  available: 

1.  Create  a  new  data  file  (C) 

2.  Modify  an  existing  data  file  (M) 

3.  Run  using  an  existing  data  file  (R) 

Enter  the  letter  shown  in  (  )  that  corresponds  to  the  desired  mode 

C 

What  is  the  data  file  name? 

Testfi le 

How  many  lots  are  there  in  this  data  set? 

2 

First  unit  cost  for  prime 
Minimum:  100000 

Most  likely:  120000 

Maximum:  170000 

Second  source  first  unit  cost 
Minimum:  90000 

Most  likely:  115000 

Maximum:  170000 

Prime  performance  curve  slope  (.XXX) 

Minimum:  .88 

Most  likely:  .95 

Maximum:  .95 

Second  source  performance  curve  slope  (.XXX) 

Minimum:  .86 

Most  likely:  .89 

Maximum:  .95 
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Data  for  lot  #  1 
Major  split  quantity  600 

Minor  split  quantity  300 

Prime  shift  factor  (.XXX) 

Minimum:  .90 

Most  likely:  .95 

Maximum:  .99 

Second  source  shift  factor  (.XXX) 
Minimum:  .88 

Most  likely:  .93 

Maximum:  .98 

Prime  rotation  factor  (.XXX) 

Minimum:  .01 

Most  likely:  .02 

Maximum:  .03 

Second  source  rotation  factor  (.XXX) 
Minimum:  .01 

Most  likely:  .02 

Maximum:  .03 

Data  for  lot  §  2 
Major  split  quantity  900 

Minor  split  quantity  100 

Prime  shift  factor  ( .XXX) 

Minimum:  1.00 

Most  likely:  1.00 

Maximum:  1.00 

Second  source  shift  factor  (.XXX) 
Minimum:  1.00 


Maximum:  1.00 

Prime  rotation  factor  (.XXX) 

Minimum:  0 

Most  likely:  0 

Maximum:  0 

Second  source  rotation  factor  (.XXX) 
Minimum:  0 

Most  likely:  0 

Maximum:  0 

Another  file  (Y,N)? 

N 

Would  you  like  to  enter  another  mode  (Y,N) 


FILE  MODIFY  MODE  EXAMPLE  SESSION 


I 


The  following  program  modes  are  available: 

1.  Create  a  new  data  file  (C) 

2.  Modify  an  existing  data  file  (M) 

3.  Run  using  an  existing  data  file  (R) 

Enter  the  letter  shown  in  (  )  that  corresponds  to  the  desired  mode 

M 

What  is  the  name  of  the  file  you  wish  to  modify 
Testf i le 


(1)  NUMBER  OF  LOTS  2 

<2)  PRIME  FIRST  UNIT  COST-MIN)  100000 

(3)  SECOND  SOURCE - MIN)  90000 

PRIME  PCURVE  SLOPE - MIN)  S80 

(5)  SECOND  SOURCE - MIN)  860 


MOST 

LIKELY) 

120000 

MAX) 

170000 

MOST 

LIKELY) 

113000 

MAX) 

170000 

MOST 

LIKELY) 

930 

MAX) 

93  0 

MOST 

LIKELY) 

890 

MAX) 

930 

(6  ) 

LOT  LOT  QUAN  SHIFT  FACTOR  SHIFT  FACTOR 
*  PRIME  SECOND  SOURCE 

MAI  MIN  MIN  ML  MAX  MIN  ML  MAX 

1  600  300  90  93  99  88  93  98 

2  900  100  1  00  1  00  1  00  1  00  1  00  1  00 


ROTATION  FACT  ROTATION  FACT 
PRIME  SECOND  SOURCE 

MIN  M  L  MAX  MIN  M  L  MAX 
01  02  03  01  02  03 

00  00  00  00  00  00 


Enter  the  number  in  the  (  )  that  corresponds  to  the  line  you  want  to 

modify 

4 

Prime  performance  curve  slope  (.XXX) 

Minimum:  .88 
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Most  likely:  .90 
Maximum:  .95 

Any  more  changes  (Y,N)  ?  Y 

Enter  the  number  in  the  (  )  that  corresponds  to  the  line  you  want  to 

modi fy 
6 

What  lot  number  to  you  want  to  modify 
2 

Data  for  lot  #  2 
Major  split  quantity  950 

Minor  split  quantity  400 

Prime  shift  factor  (.XXX) 

Minimum:  1.00 

Most  likely:  1.00 

Maximum:  1.00 

Second  source  shift  factor  (.XXX) 

Minimum:  1.00 

Most  Likely:  1.00 

Maximum:  1.00 

Prime  rotation  factor  (.XXX) 

Minimum:  0 

Most  likely:  0 

Maximum:  0 

Second  source  rotation  factor  (.XXX) 

Minimum:  0 

Most  likely:  0 

Maximum:  0 

Any  more  changes  (Y,N)  ?  N 

Would  you  like  to  enter  another  mode  (Y,N) 


SIMULATION  MODE  EXAMPLE  SESSION 


The  following  program  modes  are  available: 

1.  Create  a  new  data  file  (C) 

2.  Modify  an  existing  data  file  (M) 

3.  Run  using  an  existing  data  file  (R) 

Enter  the  letter  shown  in  (  )  that  corresponds  to  the  desired  mode 

R 

What  is  the  data  file  name? 

STRATEGY3 

Input  random  number  seed  (1-999999)? 

123 

Do  you  want  a  cumulative  probability  display  (Y,N)  ?  Y 

Do  you  want  a  probability  density  display  (Y,N)  ?  Y 

How  many  simulation  cycles  would  you  like  (5000  is  max)  ?  1001 

Do  you  want  the  results  in  discounted  dollars  (Y,N)  N 

The  following  output  modes  are  available 

(1)  Output  to  the  CRT 

(2)  Output  to  the  line  printer 
Select  desired  output  mode  (1,  2)? 

2 

Computing  results  now. 

Another  run  (Y,N)  ?  N 

Would  you  like  to  enter  another  mode  (Y,N)  N 


THE  FOLLOWING  PROCRAM  MODES  ARE  AVAILABLE 


1  CREATE  A  NEW  DATA  FILE  <C> 

2  MODIFY  AN  EXISTING  DATA  FILE  (M) 

3  RUN  USINC  AN  EXISTING  DATA  FILE  (R) 

ENTER  THE  LETTER  SHOWN  IN  (  )  FOR  DESIRED  MODE? 

R 

WHAT  IS  THE  DATA  FILE  NAME  ? 

RATT 

INPUT  RANDOM  NUMBER  SEED  (1  -  999999  )» 

123 

DO  YOU  WANT  A  CUMULATIVE  PROBABILITY  DISPLAY  <Y,N>» 

Y 

DO  YOU  WANT  A  PROBABILITY  DENSITY  DISPLAY  (Y,N>? 

Y 

HOW  MANY  SIMULATION  CYCLES  WOULD  YOU  LIKE  (SOOO  IS  MAX)  ? 
1001 

DO  YOU  WANT  THE  RESULTS  IN  DISCOUNTED  DOLLARS  (Y,N>? 

Y 

WHAT  LOT  WILL  DISCOUNTING  BEGIN  ? 

1 

THE  FOLLOWING  OUTPUT  MODES  ARE  AVAILABLE 
< 1 )  OUTPUT  TO  THE  CRT 
( 2  >  OUTPUT  TO  THE  LINE  PRINTER 
SELECT  DESIRED  OUTPUT  MODE  (1,2)? 

1 


COMPUTING  RESULTS  NOW' 


RUN  DATE  (MO/DY/YR)  --->  11/22/1985 


PACE  1 


ARMY  PROCUREMENT  RESEARCH  OFFICE  (APRO) 
MICROCOMPUTER  VERSION  OF  COMPETITION  DECISION  ASSIST  PACKAGE 


-  RESULTS  ARE  IN  DISCOUNTED  DOLLARS  -- 

<  10%  )  ,  BEGINNING  WITH  LOT  NUMBER  1 


AVERAGE  COST  * 
MEDIAN  COST  = 
MAXIMUM  COST  - 
MINIMUM  COST  * 
RANGE  - 
FOURTH-SPREAD 


281220 

280748 

401881 

141898 

259985 

230975 

290809 


Pause 

Press  <enter)  to  continue 


---  RESULTS  ARE  IN  DISCOUNTED  DOLLARS 
(  10%  )  ,  BEGINNING  WITH  LOT  NUMBER  1 


PRIME  SPLIT  WIN 

PERCENTAGE  AVERAGE  LOT 

LOT  •  %  LOT  QUANTITY  COST 


AVERAGE  UNIT  COSTS 
PRIME  SECOND  SOURCE  COMPOSIT 


100  00 

800 

74537 

t 

128 

t 

1  17 

ft 

124 

ft 

38  38 

800 

8493  1 

• 

97 

ft 

81 

ft 

8  1 

ft 

38  38 

1200 

7992  3 

ft 

83 

ft 

85 

ft 

87 

ft 

34  87 

900 

41829 

t 

50 

ft 

45 

ft 

48 

ft 

TOTAL  NUMBER  OF  UNITS  » 


Pause 

Press  (enter)  to  continue 


-MIN) 

100 

MOST 

LIKELY) 

200 

MAX) 

-MIN) 

100 

MOST 

LIKELY) 

220 

MAX  > 

-MIN) 

900 

MOST 

LIKELY) 

950 

MAX) 

-MIN) 

900 

MOST 

LIKELY) 

930 

MAX) 

NUMBER  OF  CYCLES---)  1001 


SHIFT  FACTOR  SHIFT  FACTOR  ROTATION  FACT  ROTATION  FACT 
LOT  LOT  QUAN  PRIME  SECOND  SOURCE  PRIME  SECOND  SOURCE 


* 

MAX 

MIN 

MIN 

ML. 

MAX 

MIN 

ML 

MAX 

MIN 

ML 

MAX 

MIN 

ML 

MAX 

1 

400 

200 

1  .  00 

1  .  00 

1  00 

1  00 

1  00 

1  00 

00 

00 

00 

00 

00 

00 

2 

400 

200  . 

90 

94 

98 

90 

.92 

95 

01 

02 

03 

01 

02 

03 

3 

900 

300  . 

1  .  00 

1  .  00 

1  .  00 

1  00 

1  00 

1  00 

01 

01 

01 

01 

01 

01 

4 

900 

0  . 

.  95 

94 

98 

90 

.  92 

95 

00 

00 

00 

00 

00 

00 

Pius* 

Press  (enter)  to  continue 


RUN  DATE  (MO/DY/YR)  - >  11/22/1*93  PACE  2 

STRATECY  COST  CUMULATIVE  PROBABILITY 

0  00  10  20  30  40  50  40  70  80  90  1  00 

♦ - + - ♦ - + - 4 - ♦ - ♦ - ♦ - * - ♦ - + 

141894  ! 

144494 
149493 
154894 
140093  i 
143293  i* 

170492  1  * 

175491  !* 

180891  !  ** 

184090  !«« 

19  1  289  ! *  *  * 

194489  :*«*• 

201488  ! ••«•* 

204887  :*»hm 

212084  !•*«*•*»• 

217284  :«»•*»*»*« 

222485 

227484  j •eeteetteeec 
232884 

238083  j  tttititiititnti 
243282  : eeeeteeeeeeeteeeeee 

248481  :•*••*••**•••«»*****«» 

233481  ieeeeeeeeeeeeeeteeeeeeet 

258880  ;  titnttuitiittiiiiiimt 

244079  leeeeeeeeeeeeeeeeeeeeeeeeeeee 
249279  ;  mmtmititiittxtuiittttt 

274478  seeeeeeteeeeeeteeeteeeeeeeeeeeees 

279477  iUHiiUHitiimitunnitUHm 

284874  i*»*»tt*»*»*»*»t»*»****»*t»*»»»**t*»* 


0000 
0030 
0040 
0040 
0100 
0140 
0230 
0300 
0430 
0500 
0589 
0809 
1059 
1289 
1548 
1748 
2098 
2448 
2857 
3247 
3744 
4144 
4405 
5045 
555  4 
5944 
4414 
4893 
7213 


290074 

295275 

300474 

305474 

310173 

314072 

321271 

324471 

331470 

334S49 

342049 

34724S 

352447 

357444 

342844 

348045 

373244 

378444 

383443 

388842 

394041 

399241 


STRATEGY  COST 
P«use 

Press  (enter)  to  continue 


30  40  50  40  70 

CUMULATIVE  PROBABILITY 


90  1  00 


RUN  DATE  (MO/DY/YR)  - > 

STRATEGY  COST 


11/22/1985 


141894 

144494 

149495 

154894 

140093 

145293 

170492 

175491 

180891 

184090 

191289 

194489 

201488 

204887 

212084 


PROBABILITY 
04  05  04 


Pm*  • 

Pr>*s  ( • n  t  *  r )  to  continue 


ANOTHER  RUN  (Y.N)  ’ 
N 


The  COAPM  computer  program  consists  of  a  main  routine  containing  all 
the  simulation  logic  and  12  subroutines  which  are  called  from  the  main 
program.  The  subroutines  are  used  for  housekeeping  and  formatting 
chores,  are  straightforward,  do  not  affect  the  program  logic  and  are 
therefore  not  flowcharted.  They  are  listed  alphabetically  for  reference 
in  Figure  B-l. 
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HEAD1 

RANDOM 

HEAD2 

RREAD 

LINE 
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FIGURE  B-l.  COAPM  Subroutines 
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1 

•  * 

«*****««« 

2 

C* 

3 

C« 

VARIABLE 

4 

c» 

J 

c  * 

6 

c 

ACLOTt  25 ) 

7 

c 

ALUC ( 25 ) 

8 

c 

AMID 

9 

c 

AP 

10 

c 

APUCL (25) 

1  1 

c 

ASUC  L ( 2  5 ) 

1  2 

c 

AS 

13 

c 

AVG 

1  4 

c 

BBP 

15 

c 

BBS 

1  6 

c 

BP  (  3  ) 

17 

r 

BPT 

1  8 

c 

BSS ( 3  ) 

19 

c 

BSST 

20 

c 

C  I  P  <  3  ) 

21 

c 

CIPT 

22 

c 

C  I SS ( 3  1 

23 

c 

CISST 

24 

c 

COST 

25 

c 

CUM 

26 

c 

CVP (25) 

2  7 

c 

CYCLES 

28 

c 

DEV 

29 

c 

DF 

30 

c 

DIS 

31 

c 

D 1  SC ( 2  5  ) 

32 

c 

DP 

33 

c 

DS 

34 

c 

FINC 

35 

c 

FNAME 

36 

c 

HOLD 

37 

c 

ICK 

38 

c 

IDF 

39 

c 

ITT 

40 

c 

I  VAL 

4  1 

c 

LINE 

42 

c 

LOTN 

43 

c 

Ml 

44 

c 

M2 

45 

c 

M3 

46 

c 

NCYC 

47 

c 

NLN 

48 

c 

NLOT 

49 

c 

NLOTM 

50 

c 

NLOTP 

51 

c 

PA  VG 

52 

c 

PB 

53 

c 

PC  <  50 ) 

54 

c 

PCOST( 50  > 

55 

c 

PC  F 

56 

c 

PDF 

57 

c 

PFUC 

58 

c 

PPCOST 

59 

c 

PROT 

DEFINITION 


:  y  c 


CYC 


AVERAGE  COST  OF  LOT  N 

AVERAGE  UNIT  COST  FOR  LOT  N  (COMPOSITE) 

MEDIAN  STRATEGY  COST  FROM  SIMULATION  RESULTS 
PRIME  SHIFTED  FIRST  UNIT  COST  AT  LOT  N  AND  A  GIVEN  SIM  CYC 
AVERAGE  UNIT  COST  FOR  THE  PRIME  IN  LOT  N 
AVERAGE  UNIT  COST  FOR  THE  SECOND  SOURCE  IN  LOT  N 
SS  SHIFTED  FIRST  UNIT  COST  FOR  LOT  N  AND  A  GIVEN  SIM 
AVERAGE  STRATEGY  COST 

ROTATED  PRIME  SLOPE  AT  LOT  N  AND  A  GIVEN  SIM  CYCLE 
ROTATED  SECOND  SOURCE  SLOPE  AT  LOT  N  AND  A  GIVEN  SIM 
PRIME  PERFORMANCE  CURVE  SLOPE  VALUES--MIN,  ML  MAX 
PRIME  SLOPE  TRIANGULAR  DISTRIBUTION  THRESHOLD  VALUE 
SECOND  SOURCE  PERFORMANCE  CURVE  SLOPE  VALUES < MIN , ML . MAX  - 
SECOND  SOURCE  SLOPE  TRIANGULAR  D I  ST  THRESHOLD  VALUE 
FIRST  UNIT  COST  FOR  THE  PRIME--MIN,  ML,  MAX 
PRIME  FIRST  UNIT  COST  TRIANCULAR  DIST  THRESHOLD  VALUE 
FIRST  UNIT  COST  FOR  THE  SECOND  SOURCE--MIN,  ML,  MAX 
SECOND  SOURCE  FIRST  UNIT  COST  TRIANC  DIST  THRESHOLD  VALUE 
VARIABLE  USED  TO  PRINT  THE  COST  VALUES  USED  IN  OUTPUT  PLOT 
SELECTS  PROPER  MODE  FOR  CUM  PROB  D  I  SPLAY (  1  =CUM .  D^PDF) 
PRIME  UIN  PERCENTAGE  FOR  LOT  N 

FLOATING  POINT  VERSION  OF  NCYC  (SIMULATION  CYCLES) 

OUTPUT  DEVICE  ID  (0  *  CONSOLE,  1  «  LPTl) 

DISCOUNT  FACTOR  USED  IN  CALCULATING  LOT  COSTS 
SELECTION  PARAMETER  FOR  IMPLEMENTING  DISCOUNTING 
INDIVIDUAL  DISCOUNT  FACTORS  USING  A  10%  RATE 
VALUE  USED  IN  CALCULATING  AVG  UNIT  COST  OF  PRIME  AT  LOT 
VALUE  USED  IN  CALCULATING  AVG  UNIT  COST  OF  SS  AT  LOT  N 
CLASS  INTERVAL  VALUE  FOR  SETTING  UP  THE  OUTPUT  PLOTS 
VARIABLE  USED  TO  READ  THE  DATA  FILE  NAME 

TEMPORARY  VARIABLE  USED  IN  SORTING  THE  SIMULATION  VALUES 
TEMPORARY  VARIABLE  USED  DURING  VALUE  SORTINC  AND  TESTS 
LOT  NUMBER  THAT  DISCOUNTING  WILL  BEGIN 
TOP  OF  FORM  PRINT  VARIABLE  FOR  IMPACT  TERMINALS 
INTERCER  VARIABLE  USED  TO  SCALE  THE  OUTPUT  PLOT  LINES 

ENTRY  POINT  (‘MODIFY) 

LOT  ENTRY  POINT  (‘MODIFY) 

‘CREATE  --  ENTRY  POINT  FROM  MODIFY 
•CREATE  --  BEGINNING  LOT  NUMBER 
•CREATE  --  ENDING  LOT  NUMBER 
INPUT  PRIOR 


TO  RUN 


DATA  FILE  MODIFICATION 
DATA  FILE  MODIFICATION 
ARCUMENT  OG  SUBROUTINE 
ARGUMENT  OF  SUBROUTINE 
ARGUMENT  OF  SUBROUTINE 

NUMBER  OF  SIMULATION  CYCLES  - 

LENGTH  OF  DATA  FILE  NAME 
NUMBER  OF  LOTS  READ  FROM  THE  DATA  FILE 
MODIFIED  NUMBER  OF  LOTS  FROM  ‘MODIFY 
CURRENT  NUMBER  OF  LOTS+i  --  USED  IN  ‘MODIFY 
PRIME  RUNNING  AVERAGE  UNIT  COST  AT  LOT  N  AND 
PRIME  PERFORMANCE  CURVE  SLOPE  FOR  CYCLE  N  OF 
CALCULATED  CLASS  INTERVAL  PROBABILITY 
CALCULATED  COST  CLASS  INTERVAL  PROBABILITY 
CUMULATIVE  PROBABILITY  DENSITY  DISPLAY  OPT  I  ON (  1 r YES .  0 
PROBABILITY  DENSITY  DISPLAY  OPTION  (0*NO.  1  =  Y E S ) 

PRIME  FIRST  UNIT  COST  FOR  CYCLE  N  OF  THE  SIMULATION 
PRIME  RUNNING  CUMULATIVE  COST  FOR  A  GIVEN  SIMULATION 
PRIME  ROTATION  FACTOR  FOR  LOT  N  AND  A  GIVEN  SIM  CYC 


A  GIVEN 
THE  SIM 


SIM 


:  N  0  ) 


CYC 


F.VJ 


vM 


/•j 
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OF  THE  SIMULATION 
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•  oO  C  PSF  PRIME  SHIFT  FACTOR  FOR  LOT  N  AND  A  GIVEN  SIM  CYCLE 

I  61  C  PUCOST  PRIME  UNIT  COST  FOR  LAST  ITEM  IN  LOT  N-l  FOR  A  SIM  CYCLE 

42  C  PV ( 5  0 )  HISTOGRAM  PLOT  VAR  (DEFINES  PHYSICAL  NUM  OF  PLOT  POINTS) 

63  C  Q1P  LAST  UNIT  NUMBER  FOR  PRIME  AT  LOT  N-l  AND  A  CIVEN  SIM  CYC 

64  C  Q1S  LAST  UNIT  NUMBER  FOR  THE  S  S  AT  LOT  N-l  AND  SIM  CYCLE 

65  C  Q2P  LAST  UNIT  NUMBER  FOR  PRIME  A  LOT  N  AND  A  GIVEN  SIM  CYCLE 

46  C  Q2S  LAST  UNIT  NUM  FOR  SECOND  SOURCE  FOR  LOT  N  AND  CIVEN  SIM  CY 

67  C  QM ( 2  5 )  MAJOR  SPLIT  QUANTITY  FOR  LOT  N 

68  C  QP  PRIME  LOT  QUANTITY  FOR  LOT  N  FOR  A  CIVEN  SIMULATION  CYCLE 

69  C  QPC  FRIME  CUMULATIVE  QUANTITY  FOR  CYCLE  N  OF  THE  SIMULATION 

;  70  C  QS  <  2  5 )  MINOR  SPLIT  QUANTITY  FOR  LOT  N 

71  C  QSS  SECOND  SOURCE  QUANTITY  FOR  LOT  N  FOR  A  GIVEN  SIM  CYCLE 

72  C  QSSC  SECOND  SOURCE  CUM  QUANTITY  FOR  CYCLE  N  OF  THE  SIMULATION 

73  C  RN  RANDOM  NUMBER  USED  IN  THE  SIMULATION 

74  C  ROTP (25,3)  PRIME  SLOPE  ROTATION  FACTOR  FOR  LOT  N  -  MIN,  ML,  MAX 

75  C  ROTPT  PRIME  SLOPE  RGTATION  TRIANGULAR  DIST  THRESHOLD  VALUE 

76  C  ROTS S (25  , 3 )  SECOND  SOURCE  SLOPE  ROTATION  FACTOR  FOR  LOT  N( MIN . ML , MAX 

77  C  ROTSST  SECOND  SOURCE  ROTATION  TRIANGULAR  DIST  THRESHOLD  VALUE 

7  8  C  SA VC  SECOND  SOURCE  RUNNINC  AVERACE  UNIT  COST  AT  LOT  N  AND  CYC 

77  C  SCOST (  5  0  0  0  )  STRATEGY  COST  FOR  THE  NTH  SIMULATION  CYCLE 

80  C  SF  SCALE  FACTOR  USED  IN  SCALE  SUBROUTINE 

81  C  SFP ( 2  5 , 3  )  PRIME  FIRST  UNIT  COST  SHIFT  FACTOR  FOR  LOT  N ( M I N , ML , MAX ) 

82  C  SF PT  PRIME  SHIFT  FACTOR  TRIANGULAR  DISTRIBUTION  THRES  VALUE 

83  C  SFSS ( 2  5 , 3 )  SECOND  SOURCE  FIRST  UNIT  COST  SHIFT  FOR  LOT  N(MIN,ML  MAX) 

34  C  SFSST  SECOND  SOURCE  SHIFT  FACTOR  TRIANGULAR  DIST  THRES  VALUE 

85  C  SOLE  SOLE  SOURCE  FIR5T  UNIT  COST--  USED  FOR  REFERENCING  SHIFT 

46  C  SSB  SECOND  SOURCE  PERFORMANCE  CURVE  SLOPE  FOR  CYCLE  N  OF  THE 

87  C  SSCOST  SECOND  SOURCE  RUNNING  CUMULATIVE  COST  FOR  A  CIVENSIM  CY 

88  C  SSFUC  SECOND  SOURCE  FIRST  UNIT  COST  FOR  CYCLE  N  OF  THE  SIM 

89  C  5SR0T  SECOND  SOURCE  ROTATION  FACT  FOR  LOT  N  AND  A  GIVEN  SIM  CY 

70  C  SSSF  SECOND  SOURCE  SHIFT  FACTOR  FOR  LOT  N  AND  A  GIVEN  SIM  CYC 

71  C  SUCOST  SECOND  SOURCE  UNIT  COST  FOR  LAST  UNIT  OF  LOT  N-l  AND  CYC 

72  C  TCK  VARIABLE  USED  TO  INDICATE  TYPE  OF  TERMINAL  BEING  USED 

7?  C  TFUC  TEMP  FIRST  UNIT  COST  USED  BETWEEN  LOTS  SPECIFYING  SHIFTS 

74  C  TOTAL  VALUE  USED  TO  PRINT  TOTAL  LOT  QUANITIES 

75  C  TTYP  VARIABLE  USED  TO  INPUT  TERMINAL  TYPE  (IMPACT  OR  THERMAL) 

g6  C  VAL  VARIABLE  USED  TO  PRINT  PROBABILITY  VALUES  IN  OUTFUT  FL0T3 

77  C  YP  COST  OF  LOT  N  FOR  THE  PRIME  FOR  A  GIVEN  SIMULATION  CYCLE 

78  C  YS  COST  OF  LOT  N  FOR  THE  SS  FOR  A  GIVEN  SIMULATION  CYCLE 
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C  PSF 
C  PUCOST 
C  PV( 50  ) 

C  Q1P 
C  Q  1  S 
C  Q2P 
C  Q2S 
C  QM( 25 ) 

C  QP 
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C  QSS 
C  QSSC 
C  RN 

C  ROTP (25,3) 

C  ROTPT 
C  ROTSS( 28 , 3 ) 
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C  SA  VC 

C  SCOST (  5  0  0  0  ) 
C  SF 

C  SFP( 25 , 3  ) 
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C  SOLE 
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C  YS 


THIS  PROCRAM  SETS  UP  A  SIMULATION  OF  TWO  PRODUCERS  OPERATING  IN  A 
COMPETITIVE  ENVIRONMENT  THE  PURPOSE  OF  THE  SIMULATION  IS  TO 
CALCULATE  THE  COST  OF  ACQUIRING  THE  TOTAL  QUANTITY  OF  ITEMS  MADE  BY 
BOTH  SOURCES  CONSIDERED  IN  THIS  SIMULATION  PROGRAM  ARE  THE  EFFECTS 
OF  QUANTITY  PRODUCED  ON  UNIT  PRICE  ‘PRICE  PERF  CURVES,  OR  LEARNING 
CURVES),  INFLUENCE  OF  COMPETITION  ON  UNIT  PRICE  UNDER  CONDITIONS  OF 
MULTIPLE  CONTRACT  AWARDS  AND  THE  EFFECT  OF  COMPETITION  ON  RELATIVE 
PRODUCTION  EFFICIENCY  DATA  FOR  THIS  PROGRAM  IS  READ  FROM  A  FILE 
THAT  IS  PREPARED  AND  MAINTAINED  BY  A  UTILITY  WITHIN  THIS  PROGRAM 
THIS  PROGRAM  WAS  ORIGINALLY  CODED  FOR  USE  ON  A  PRIME  COMPUTER  BY 

US  ARMY  TANK  AUTOMOTIVE  COMMAND 
SYSTEMS  AND  COST  ANALYSIS  DIRECTORATE 
DR  STA -  VS  i MR  PAUL  BRADLEY' 
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1  1  9  c** ********************************************************************* 

120  C* 

121  C*  THIS  VERSION  OF  THE  PROGRAM  HAS  BEEN  CODED  SPECIFICALLY  FOR  THE 

122  C*  COMPAQ  PLUS  MICROCOMPUTER  AND  OTHER  IBM  COMPATI ABLE  MICROCOMPUTER  SYS 

123  C*  USINC  IBM  FORTRAN  COMPILER  VERSION  2  00  (MICROSOFT  FORTRAN) 

124  C*  IMPROVEMENTS,  AND  CORRECTIONS  TO  THE  PROCRAM  LOCIC  HAVE  BEEN  MADE,  AS 

125  C*  NEEDED.  A  REPORT  DOCUMENTING  THE  OPERATION  AND  FEATURES  OF  THIS 
124  C*  MODIFIED  VERSION  IS  APRO  85-04  AND  IS  AVAILABLE  FROM 
127  C* 

126  C*  ARMY  PROCUREMENT  RESEARCH  OFFICE 

129  C*  ATTN  DALO-PRO  (MR  ANDERSON  J  LATTIMORE) 

130  C*  FORT  LEE,  V A  23801-4045 

131  C* 

132  c*********************************************************************** 

133  COMMON/ A/PV( 5 1 ) ,PCOST(50) ,SCOST(5000) 

134  COMMON/ RD/F ID ( 12),CIP(3),CISS(3),BP(3),BSS(3),QM(25), 

135  +QS( 25 )  ,SFP(25,3),SFSS(25,3>, ROTP (25,3), ROTSS( 25 . 3 )  , AC  LOT ( 2  5 )  , 

134  +ALUC<25) ,APUCL<25> ,ASUCL<25> , FNAME , NLOT , I  YEAR, I  MONTH,  I  DAY 

137  REAL  *  8  P V , PCOST , SCOST , F I D , C I P , C I SS , AC  LOT , A  LUC , B P  ,  B SS  ,  SFP.SFSS, 

138  +ROTP , ROTSS , SFPT( 25 ) ,SFSST(2S) ,ROTPT(25) ,ROTSST(25) , QM ,  QS,CVP<25> 

139  +,AVG,C05T,PPC0ST,SSC0ST,PAVG,SAVG,YP,YS,SSFUC,PFUC,ASUCL,APUCL 

140  REAL  D I  SC ( 2  5  ) 

141  CHARACTER  CH.ANS.TICK 

142  CHARACTER* 1 2  FNAME 

143  INTEGER  TCK.DEV 

144  INTEGER*2  I  Y EAR .  I  MONTH  I  DA Y 

145  INTEGER*  4  TOTAL 

144  DOUBLE  PRECISION  IX, RANDOM 

147  LOGICAL  OPN.SHOW 

148  DATA  DISC/  954,  847,  788,  717,  452,  592,  538,  489,  445,  405, 

149  ♦  348,  334,  304,  274  251,  228,  208,  189,  172,  154,  142,  129, 

150  ♦  117,  107,  097 / , Ml / 0 / ,M2 / 0 / , M3 / 0 / 

151  ITT. 12 

152  CH.CHAR (27) 

153  DEV  r  0 

154  OP EN ( 1  . F I L E  = ' L PTl  '  > 

155  CALL  CETDAT( I  YEAR ,  IMONTH,  IDAY ) 

156  C************************** 

157  C» 

158  C*  DISPLAY  MENU  OF  RUN  MODES  CREATE  A  NEW  FILE,  MODIFY  EXISTING  FILE 

159  C*  AND  RUN  THE  SIMULATION  FROM  AN  EXISTING  FILE 
140  C* 

161  C************************** 

162  510  VR ITE( * , 520 ) 

143  WRITE!* ,522) 

164  WRITE! * , 5  2  4  ) 

165  WR I T E ( *  , 5  2  6  ) 

166  WR I TE ( * , 5  4 0  ) 

167  520  FORMAT! / 1 X , 'THE  FOLLOWING  PROCRAM  MODES  ARE  AVAILABLE  '  > 

1  4  8  5  2  2  FORMAT ( / 5  X ,  '  1  CREATE  A  NEW  DATA  FILE  (C)') 

1  6  9  5  2  4  FORMAT (  '  5  X  ,  '2  MODIFY  AN  EXISTING  DATA  FILE  (M>  ) 

1  7  0  5  2  4  FORMAT!  /5X  3  RUN  USING  AN  EXI5TINC  DATA  FILE  <R>') 

171  540  FORMAT! / 1 X , ' ENTER  THE  LETTER  SHOWN  IN  (  )  FOR  DESIRED  MODE’  ) 

172  READ' *,1250)  ANS 


173 

IF'  < 

ANS 

EQ 

•  C 

)  OR 

ANS 

EQ 

‘  c  ‘  ) 

CALL 

CR  E ATE ( M 1  , M2 , M 

174 

IF!  ( 

ANS 

EQ 

’M 

)  OR 

ANS 

EQ 

'  m  1  ) 

CALL 

MODIFY 

175 

I  F  (  ( 

ANS 

EO 

R 

)  OR 

ANS 

EQ 

r  '  ) 

GOTO 

570 

176 

550 

WRITE' 

* , 5  4  0  ) 

177 

560 

FORMAT! / 1 X 

WOULD 

YOU  LIKE 

TO  ENTER 

ANOTHER 

MODE 

(  Y  .  N  )  ’  1  ) 
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178  READ (*,1230)  ANS 

179  IF  (  (  ANS  NE  '  Y  '  )  AND  <  ANS  NE  ' y ‘  >  >  COTO  1255 

180  GOTO  5 1 0 

1  8  1  5  70  UR ITE ( * , 5  80  ) 

1  8  2  3  8  0  FORMAT!  / 1 X  ,  ‘ WHAT  IS  THE  DATA  FILE  NAME  »•) 

183  READ (*,590)  FNAME 

1  84  590  FORMAT ( A  1 2 ) 

185  c************************** 

1 86  C* 

187  C*  SET  UP  RUN  PARAMETERS 

188  C* 

is?  <:•**’*••«*••**••*••**•••••• 

190  C 

191  400  WRITE!* ,410) 


192  6 1 C  FORMAT! / 1 X ,' INPUT  RANDOM  NUMBER  SEED  <1  -  999999)’  •) 

193  READ! * , 425 )  I Y 

194  if  (  (  ly  LT  1  )  OR  <  ly  CT  999999  )  )  goto  400 

195  C ***************** *  a  future  version  of  CDAPM  will  use  date/time  as  seed 

194  1 X  =  I Y 

197  DO  415  1=1,100 

1  198  RN*RANDOM (IX) 

1  199  413  CONTINUE 

2  00  PD  F  =  0 

201  PC  F  =  0 

2  0  2  WR ITE! *  ,  6  2  0  ) 

2  0  3  4  2  0  FORMAT!  / 1 X .  1  DO  YOU  WANT  A  CUMULATIVE  PROBABILITY  DISPLAY  Y  N ) 5 

204  READ!*, 1250'  ANS 

2  0  5  IF  (  (  ANS  EQ  ' Y '  )  OR  <  ANS  EQ  y'  )  )  PC  F  =  1 

2  0  4  WR I TE ( *  , 4  3  0  ) 

207  430  FORMAT! / 1 X DO  YOU  WANT  A  PROBABILITY  DENSITY  DISPLAY  <Y  N)>  ) 

208  READ!*, 1250)  ANS 

209  IF  (  (  ANS  EQ  'Y'  )  OR  (  ANS  EO  y'  )  >  PDF=1 

2  1  0  6  4  0  WR ITE ( * , 6  5  0  ) 

211  650  FORMAT! / 1 X HOW  MANY  SIMULATION  CYCLES  WOULD  YOU  LIKE 

2  12  1  1  (  5  0  0  0  IS  MAX )  »  ‘  ) 

2 1 3  READ (*,625)  NCYC 

214  625  FORMAT (110) 

215  IF  f  (  NCYC  CT  3000  >  OR  (  NCYC  LT  1  )  )  GOTO  640 

216  CYCLESsNCYC 

217  D I S=  0 

218  URITE<  * , 6  4  0  ) 

*  1  9  4  4  0  FORMAT <  /  1  X  DC  YOU  WANT  THE  RESULTS  IN  DISCOUNTED  DOLLARS  'Y  N>’  > 

220  READ! * ,1250)  ANS 

221  IF  (  (  ANS  EO  Y'  )  OR  (  ANS  EQ  ’ y '  )  )  DIS=1 

2  2  2  1  F  <  D I S  EQ  0  )  GOTO  673 

223  WR I TE ( * .670) 

224  470  FORMAT ( / IX , 'WHAT  LOT  WILL  DISCOUNTING  BECIN  ’ ' ) 

2  2  5  R  EAD ( * , 6  2  5  )  IDF 

2  2  4  4  7  3  WR ITE ' *  ,  6  7  4  ) 

2  2  7  6  7  4  FORMAT (  /IX,  THE  FOLLOWING  OUTPUT  MODES  ARE  A V A  I  L A B L E  '  /  5 X  <1>  ' 

2  2  8  ♦  OUTPUT  TO  THE  CRT '  / 3  X .  '  ( 2  )  OUTPUT  TO  THE  LINE  PRINTER  . 

22’  ♦/lX,  SELECT  DESIRED  OUTPUT  MODE  <1  2)’'' 

2  3  0  4  7  5  READ) *  ,  6  2  5  )  ID 

231  I F  f  I D  LT  1  OR  ID  GT  2)  GOTO  473 

232  IF  'ID  EQ  1'  DEV  =  0 

2  3  3  IF !  ID  EQ  2  )  DEV  *  1 

2  3  4  4  7  8  FORMAT f  /  t  X  COMPUTING  RESULTS  NOW  1  > 

2  3  5  WR ITE  <  *  4  7  8  ) 

236  ‘80  CALL  RREAD'NLN) 
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231  c**** *********** *********** 

2  3  8  C« 

239  C*  COMPUTE  TRANCULAR  DISTRIBUTION  CUMULATIVE  PROBABILITY  THRESHOLD  VALUE 

280  C*  FOR  USE  IN  GENERATING  DESIRED  VARIABLE  VALUES  FROM  A  RANDOM  NUMBER 

281  C*  IF  THE  MIN,  ML,  AND  MAX  VALUES  ARE  EQUAL  SKIP  THE  CALCULATION 

282 

2  8  3  C* 

HI  c************ *•**«****«»»****«* 

285  700  RNxRANDOM ' IX) 

284  CIPT-CIPU) 

287  CISSTxCISSf 3) 

288  BPT=BP<3> 

2  8  9  BSST=BSS ( 3  ) 

2  5  0  I  F  <  C  I  P (  1  )  NE  C!P<3>>  C I PT= < C I P < 2 > -C I P d > ) / ( C I P < 3 ) -C I P <  1)) 

251  I F ( C I SS  <  1  )  NE  C  I  SS ( 3  )  >  C I SST= ( C I SS < 2 ) -C I SS d ) > / < C I SS (  3 ) - C I SS  C  1  )  ) 

2  5  2  I F  <  B  P (  1  )  NE  BP<3))  B PT* < B P ( 2 >  -  B P (  1  )  > / < B P S 3  )  -  BP (  1  )  ) 

2  5  3  I F  <  BSS (  1  )  NE  BSS<3)>  B SST  = ( B SS < 2 > - B S S (  1  )  )  /  ' B SS ( 3  ) - BS S (  1  )  ) 

254  DO  780  1=1 .  NLOT 

1  255  CUP' I )=0 

1  254  S  F  PT (  I  )  =  S  F  P  <  1,3) 

1  2  5  7  IF(SrPd.l)  EQ  SFP  (  I  ,  3  )  )  GO  TO  750 

1  '58  SFPT< I >  =  ( SFP ( I , 2  ) -SFP ( I  . 1 ) ) / ( SFP< I , 3 ) -SFP( I , 1  )  ) 

1  2  5  9  7  5  0  SFSST'  I ) =SFSS<  1,3) 

1  2  4  0  I  F ( S  F  SS  <  I  1 >  EQ  SF  SS (1.3))  CO  TO  760 

1  261  SFSST'  I )  =  ( SFSS (  I  , 2  ) -SFSS (  I  ,  1  )  )  / ( SFSS (  I  3  ) - S F SS (  I  ,  1  )  ) 

1  2  6  2  7  6  0  R OTPT (  I  >=ROTP'  1,3) 

1  263  I F l ROTP (1,1)  EQ  ROTP ( I , 3 >  )  GO  TO  770 

1  248  ROTPTl I ) * ( ROTPt I , 2 > -ROTP ( I , 1 J ) / < ROTP ( I , 3 ) -ROTD ( I , 1 ) ) 

1  265  770  ROTSSTt I )*HOTSS( I ,3) 

1  266  I F ( ROTSS (1,1)  EQ  ROTSS(I,3>>  GO  TO  780 

1  2  6  7  ROTSSTt I  >* (ROTSS<  I  , 2 ) -ROTSS(  I  ,  1 > )  / ( ROTS5  <  I  , 3  > -ROT5S(  I.l>> 

1  268  780  CONTINUE 

269  c************************** 

2  7  0  C* 

271  C*  BECIN  THE  SIMULATION  - 

2  7  2  C* 

273  C*  CENERATE  A  FIRST  UNIT  COST  AND  PERFORMANCE  CURVE  SLOPE  FOR  THE  PRIME 
278  C*  AND  SECOND  SOURCE  SUPPLIERS 
2  7  5  C* 

276  C************************** 

277  DO  9 1 0  I = 1 , NC YC 

1  2  78  PFUC  =  C I P  <  3 ) 

1  2  7  9  SSFUC.C I SS  < 3  ) 

1  2  80  PB  =  B P ( 3  ) 

1  281  SSB  =  8SS( 3  ) 

1  2  8  2  I  F ( C  I  P (  1  )  EQ  C  I  P ( 3  )  )  GO  TO  790 

1  2  8  3  RN. RANDOM!  I  X ) 

1  2  8  8  I F ( RN  GE  CIPT)  P FUC *C I P < 3 ) - D SQRT (  < 1  - RN ) * ( C I P ( 3  ) - C I P (  1  )  ! * 

1  285  ♦ (C IP( 3 ) -C IP( 2  )  )  ) 

1  2  8  6  1  F ( RN  LT  CIPT)  P FUC »C  I P (  1  ) ♦ DSQRT i RN* ( C I P ( 3 ) - C I P (  1  )  )  * 

1  2  8  7  ♦ <  C I P  < 2>-CIP< 1  )  )  > 

l  288  790  IF(CISS(1)  EQ  CISS<3>>  GO  TO  800 

1  289  RNxRANDOM (IX) 

1  2  9  0  IF'RN  GE  CISST)  SS FUC * C I SS ( 3 ) - DSQRT (  (  1  - RN ) * ( C I SS ( 3 ) - C I S S <  1))* 

1  2  9  1  ♦ ' C I SS  <  3 ) -C I SS ' 2  )  )  ) 

1  292  IF'RN  LT  CISST)  SSFUC =C I SS ( 1 ) ♦ DSQRT ( RN* < C I SS < 3 ) - C I SS (  1))* 

1  2  9  3  ♦ ( C I SS ( 2 ) -C  I  SS (  1  )  )  ) 

1  2  9  8  8  0  0  I F ( BP ( 1  1  EQ  BP'3>>  GO  TO  810 

1  295  RNxRANDOMt IX) 
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1 

296 

I F  <  RN  CE  BPT )  P8  =  BP ( 3 > -DSQRT( ( 1 -RN) * ( BP ( 3 ) -BP ( 1 ) ) * 

1 

297 

♦  ( BP ( 3 ) -BP ( 2  )  )  ) 

1 

2  98 

I F ( RN  LT  BPT)  PB=BP ( 1 > +DSQRT( RN* < BP ( 3 ) -BP < 1 > ) * 

1 

299 

♦  ( BP ( 2 ) -BP (  1  )  )  ) 

1 

3  00 

810  I F ( BSS (  1  )  EO  B S S ( 3  >  )  CO  TO  820 

1 

30  1 

RN*RANDOM<  I X  > 

1 

302 

I F  <  RN  CE  BSST)  SS B  =  B SS < 3 > - DSQR T <  < 2 - RN  )  * ( BSS ( 3 > - E SS < 1  )  ) 

* 

1 

303 

♦  ( B SS ( 3 ) -BSS ( 2  )  )  ) 

1 

304 

I F ( RN  LT  BSST)  SSB * BSS ( 1 ) ♦DSQRT < RN* ( BSS ( 3 ) - BSS ( 1 ) ) * 

1 

305 

♦  ( BSS ( 2  )  -BSS<  1  )  )  ) 

1 

306 

820  SCOST ( I ) =0 

1 

307 

P  PC  OST  *  0 

1 

308 

SSCOSTi 0 

1 

30« 

GPC  =  0 

1 

3  1  0 

QS SC  *  0 

1 

3  1  1 

PAVCrO 

1 

3  1  2 

SAVC=0 

1 

3  1  3 

1 

3  1  4 

C* 

1 

3  1  5 

C*  CALCULATE  FIRST  UNIT  COST  AND  SLOPE  ADJUSTMENT  FOR  LOT  N 

DURING  THE 

1 

3  1  6 

C*  GIVEN  SIMULATION  CYCLE 

1 

3  1  7 

C* 

1 

3  1  8 

i 

3  1  9 

DO  9io  J=  1  . NLOT 

2 

320 

PSFrSFP ( J . 3 ) 

2 

3  2  1 

I  F  (  S F P ( J  ,  1  )  EQ  SFP ( J  ,  3  >  )  GO  TO  830 

*» 

4 

322 

RN  =  RANDOM (  IX ' 

2 

323 

I  F  (  RN  CE  SFPT(J))  .PSF  =  SFP(J.3>-DSGR’r(  <  1-RN)*(SFP(J,  3)  - 

SFP  i  J 

,  l  !  !  * 

2 

324 

♦  (5FP( J. 3  > -SFP  C J , 2  >> ) 

2 

325 

I F ( RN  LT  SFPT(J))  P S F =S F P ( J , 1 > ♦ DSQRT ( RN* ( S F P ( J . 3 ) - S F P ' 

J  ,  1  )  ) 

• 

2 

326 

♦  <SFP(J.2'-SFP(J,  1  ))  ) 

2 

3  2  7 

8  3  0  SSSF  *SFSS ( J , 3 ) 

* 

4 

328 

IF(SFSS(J.l)  EQ  SFSStJ  3))  CO  TO  840 

2 

329 

RN=R ANDOM ( I X ) 

330 

I F ( RN  CE  SFSST(J))  SSS F  =  S F S S ( J  3 > - DSQRT (  (  1  - RN ) * 

331 

♦  ( SF5S i J . 3 > -SFSSf J . 1 > ) « • SFSS( J . 3 ) -SFSSf J  .  2 >  )  > 

4 

332 

I F i R N  LT  SFSST(J')  SSSF-SFSS < J , 1 > ♦DSQRTt RN* ( SFSS ( J . 3 )  - 

S  F  S  S  ( 

J  .  1  )  • 

2 

333 

♦  (SFSSIJ  2  )  - S  FSS ( J .  1 )  ) ) 

■n 

4 

3  3  4 

8  4  0  PROT  sROTP ( J , 3 ) 

k 

335 

I F ( ROTP ( J ,  1  )  EQ  ROTP ( J . 3  > )  CC  TO  850 

•> 

k 

3  3  6 

RNsRANDOM ( I X ) 

2 

3  37 

I F ( RN  CE  ROTPT(J))  P ROT  =  ROTP ( J .  3 >- DSQRT ((  1  - RN ) * 

2 

3  3  8 

♦  ( ROTP ( J .  3 ) -ROTP ( J ,  1  )  ) *  <  ROTP ( J .  3 ) -ROTP ( J , 2  > ) ) 

k 

3  39 

I F  <  RN  LT  ROTPT ( J ) '  PROT  =  ROTP<J.  1)*DSQRT(RN* 

2 

340 

♦  ( ROTP ( J .  3 ) -ROTP ( J ,  1  )  ) *  < ROTP ( J  2 ) -ROTP ( J . 1  ) )  > 

2 

3  4  1 

850  SSROTaROTSS ( J , 3 ) 

2 

342 

I F ( ROTSS ( J . 1 )  EQ  ROTSS ( J . 3 ) )  GO  TO  860 

2 

343 

RN  =  RANDOM  <  I X ) 

2 

344 

I F  <  RN  CE  ROTSST ( J )  )  SSROT=ROTSS ( J  3 > - DSQRT < (  1  - R N )  » 

2 

3  45 

♦  <  ROTSS  <  J  3  ) -ROTSS ( J ,  1  ')*( ROTSS ( J  3 > - ROTSS < J . 2 '  )  > 

*3 

4 

346 

IF'RN  LT  ROTSST'jn  SSROT=ROTSS ( J  1 > ♦ DSGRT ( RN * 

4 

3  4  7 

♦  1 ROTSS ( J .  3 > -ROTSS ( J  1  )  ) » ( ROTSS  <  J  2 ) - ROTSS ( J .  1  )  )  > 

2 

3  43 

2 

349 

C* 

2 

350 

C»  BASED  ON  THE  RUNNINC  UNIT  AVC  COST  FOR  EACH  SOURCE  DETERMINE 

WHICH 

2 

35  1 

C*  SOURCE  WILL  WIN  THE  MAJOR  SPLIT  QUANTITY  WHEN  SPLIT  BUYS  ARE  BEING 

4 

3  5  2 

C«  USED  USING  THE  SELECTED  QUANT  I TT I E  S  CALCULATE  LCT  COSTS 

FOR 

EACH 

2 

35  3 

C*  SOURCE  INCREMENT  RUNNINC  CUM  COSTS  AND  UPDATE  UNIT  AVC 

COSTS 

2 

354 

C*  CONTINUE  UNTIL  ALL  LOTS  HAVE  BEEN  EVALUATED  FOR  THE  GIVEN 

SIM 

.  \  N  \  A  \  S'  N 

•*.  4-  .  V. 


.VJ 
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8  6  0  I F  <  QPC  EQ  0  )  CO  TO  870 
BBP.ALOG(PB) / ALOG  <  2  ) 

PUCOST=PFUC*QPC**BBP 
I F ( QSSC  EQ  0  )  CO  TO  870 
BBS=*ALOG(SSB>/ALOC<2  ) 
SUCOST*SSFUC*QSSC**BBS 
870  QP=QM(J) 

QSS*QP 


IF  QM  AND  QS  ARE  EQUAL,  A  COMPOSITE  PERFORMANCE  CURVE  IS  BEING  USED 
THEREFORE  BYPASS  THE  LOT  SPLIT  PROCESS 


IF(QSCJ)  EQ  QM (  J  )  )  CO  TO  890 
PAVC=PAVC*  PSF 
SAVC=SAVC*S3SF 
I F ( SAVC  EQ  0  )  CO  TO  88  0 
I  F ( S A VC  LT  P  A  V  C  )  QP=QS(J) 

i  >  t  •  >  1 1  <  1 1 1 1  >  1 1 1 1 1  *  1 1 1 1 1  >  <  <  1 1  <  i  <  1 1 1  <  1 1  <  i  •  1 1  >  i  •  1 1 1 1  <  1 1 1  •  1 1 1  >  1 1  >  i  >  i  >  •  i  t 

The  following  line  of  code  may  be  used  m  an  alternate  single-source 
baseline  strategy  it  guarantees  that  the  second  source  is  ignored 
Use  it  only  when  the  input  data  implies  there  is  no  split  award 
i  e  only  in  a  n o - c omp e t i t i on  p r l me - s o u r c e - on  I v  situation 
I F  <  QS ( J  )  EQ  0  )  QP  =  QM(j; 


DECISION  RULE  FOR  SPLIT  BUY  AWARDS  THE  SOURCE  HAVINC  THE  LOVE5T  AVC 
PRICE  AS  OF  THIS  LOT  FOR  A  GIVEN  SIMULATION  CYCLE  IS  CIVEN  THE  MAJOR 
SPLIT  QUANTITY 


880  QSS=QM(J)+QS(J)-QP 
8  9  0  I  F ( QP  EQ  QM ( J !  )  CVP ( J ) = CWP ( J ) ♦ 1 
PB= A35 ( PB-PROT) 

B8P=ALOG(PB) /ALOG( 2  ) 

IF (QPC  NE  0  )  PFUC  =  PUCOST/ (QPC**BBP  > 

I  F  <  PSF  NE  1  )  PFUC  =  PFUC*PSF 

38P=BBP+ 1 

SSSiABS(SSB-SSROT) 

I  F  <  S  SB  NE  0  >  8BS  =  ALOG(SSB) / ALOC ( 2  ) 

I  F ( QSSC  NE  0  )  SSFUC*SUCOST/ (QSSC**BBS) 

IF  (SSSF  NE  1  )  SSFUC=SSFUC*SSSF 

BBS  =  BBS  +  1 

Ql P=QPC 

Q2P=QPC+QP 

Q 1 SsQSSC 

Q2S  =  QSSC  >QSS 

QPC.Q2P 

QSSC.Q2S 

DF*  1 

I  F  (  D I  S  EO  0  )  CO  TO  900 
I F  C  J  LT  IDF)  GO  TO  900 
I  J  =  J  -  IDF*  l 
D  F  =  D I  SC  <  IJ  ) 

90  0  YP«DF*PFUC»  (  <  Q  2  F  ♦  5  >  *  *  8  B  P  -  <  Q  1  P  *  5  *»BBP!/BBP 


.V.'V 


8 
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YS=DF*SSFUC*(  (  Q  2  S  ♦  5  )  *  *  BBS - ( Q 1 S ♦  5>«»BBS''BBS 


IF  QM  AND  OS  ARE  EQUAL  A  COMPOSITE  PERFORMANCE  CURVE  IS  BEING  USED 
THEREFORE  THE  LOT  COST  FOR  EACH  SOURCE  IS  EQUAL 


I F ( QS ( J  )  EQ  QM ( J )  >  YS  =  YP 

SCOST ( I ) =SCOST( I ) + YP+ YS 

PPCOST=PPCOST+YP 

SSCOST=SSCO.jT  +  YS 

PAVG=PPCOST/Q2P 

I  F ( Q 2 S  NE  0  >  SAVG=SSCOST/Q2S 

AC  LOT ( J )=ACLOT(J)+ (  Y  P  ♦  Y  S  > /CYCLES 

ALUC (J ! =ALUC  <  J> ♦<  YP  +  YS) / (CYCLES*  <QM<  J  > ♦QSCJ  >)  > 

I  F  <  QP  NE  0  )  APUCL ( J > =APUCL ( J ) ♦ YP /QP 

IF ( QSS  NE  0  >  ASUCL ( J  > =  A  S  U  C  L ( J ) +YS/QSS 

CONTINUE 


COMPUTE  THE  AVERAGE  UNIT  COST  FOR  EACH  SOURCE  AT  LOT  N  THIS  PROCESS 
REQUIRED  SINCE  A  BUYOUT  PERIOD  CHANCES  THE  NUMBER  OF  CYCLES  A  GIVEN 
SOURCE  WILL  APPEAR  IN  A  GIVEN  SIMULATION  RUN  DUE  TO  THE  AWARD  RULE 


DO  420  1=1  NLOT 

DP.CYCLES 

DS=CYCLES 

I  F  c  QS  <  I  >  EO  0  »  DS=CYCLES-CWP (  I  ) 
I  F ( QS (  I  )  EQ  0  '  D P  =  C  WP <  I  ) 

I F ( DS  EQ  0  )  LS.CYCLES 
I  F ( DP  EQ  0  !  DP  =  CYCLES 
AFUCL (  I  '  =  A  PUC  L (  I  > /DP 
ASUCL (  I  > .ASUCL  < I  >  / D S 
CONTINUE 


SORT  THE  SIMULATION  RESULTS  AND  COMPUTE  THE  CLASS  INTERVAL  SICE  --- 

(MAX  -  MIN)  / 5  0 -  ALSO  COMPUTE  THE  AVERAGE  COST  AND  DETERMINE  THE 

MEDIAN  COST 


N=NC YC 
430  ICK.O 
N  =  N-  1 

IF (N  EQ  1 '  GO  TO  460 
DO  450  1=1  N 

I  F  (  SCOST(  I  '<  CE  SCOST  (  1*1  )  >  GO  TO  450 
440  HOLD=SCOST' I ' 

SCOST ( I > .SCOSTf I ♦ I ' 

SCOSTl  I ♦ 1  '  =HOLD 
I  C  K  =  1 

450  CONTINUE 

I  F (  ICK  GT  0 )  GO  TO  4  3  0 
4  6  0  F  INC. ( SCOST<  I  SCOST' NCYC '  / 50 


IF  iFINC  GT 
P  D  F  =  0 
PCF.O 

WRITE 'DEV  463 


GO  TO  465 


SCOST' 1 
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4  73  963  FORMATUX  'DETERMINISTIC  RUN  MIN  COST=MAX  COST=  '  ,  F 1  1  0) 

474  AVG=SCOST ( 1 ) 

4  75  AM  I D=SCOST ( 1  ) 

476  CO  TO  992 

477  965  ICK=NCYC/2+l 

4  78  AM  I D*  SCOST ( I  CK  > 

479  DO  970  1*1,50 

1  4  8  0  PCOST d  )  =  0 

1  481  970  CONTINUE 

4  8  2  AVC  *  0 

483  DO  980  1=1 ,  NCYC 

1  484  AVC=AVC*SCOST< I ) /CYCLES 

1  485  Js( (SCO ST ( I > -SCOST ( NCYC ) ) / F I NC )  +  1 

1  4  8  6  I F  <  J  CT  50)  J  =  5  0 

1  487  PCOSTt J ) =PCOST< J ) ♦ 1 

1  488  9 80  CONTINUE 

489  DO  9  9  0  1  =  1  .  5  0 

1  4  9  0  PCOSTt  I  >  =  PCOST (  I  )  /CYCLES 

1  491  990  CONTINUE 

492  992  DO  1000  1*1.50 

1  4  9  3  P  V  d  )  *  ' 

1  494  1000  CONTINUE 

4  9  5  LC  *  1 

4  9  6  I  P  AC  E  =  0 

49">  WRITE'DEV.  1010) 

498  1013  FORMAT' 1 H 1 

4»9  CALL  PACE(IPACE.L:.TCK,DEV) 

530  WR ITE ( DEV , 1 1 1 5 ) 

501  1115  FORMAT  <  1 0  X ,  ' ARMY  PROCUREMENT  RESEARCH  OFFICE  ( APRO  )'.//.  1 X , 

502  ♦  MICROCOMPUTER  VERSION  OF  COMPETITION  DECISION  ASSIST  PACKAGE'/) 

5  0  3  L  C  *  L  C  ♦  4 

5  0  4  I  F ( D I  S  EO  0  )  CO  TO  1050 

5  0  5  WR ITE ( DEV ,  1  0  2  0  )  IDF 

5  0  6  L  C  =  L  C  ♦  3 

5  0  7  '.0  2  0  FORMAT  (  /  1  7  X  ,  ' - RESULTS  ARE  IN  DISCOUNTED  DOLLARS 

5  0  8  ♦  /  1 5  X  ,  ‘  (  10%  )  BEGINNING  WITH  LOT  NUMBER  *  ,  12  > 

5  0  9  1  0  5  0  WR ITE (DEV ,  1  0  6  0  )  A VG , AM  I D 

5  13  L  C  «  L  C  ♦  4 

5  1  1  1  0  6  0  FORMAT (/20X,  '»*«**  AVERAGE  COST  =  -FIX  0,'  ****»'/ 

512  W20X.  '****»  MEDIAN  COST  =  *  , F 1 1  0,'  *»***'> 

513  WRITE  (DEV.  1  0  7  0  )  SCOST(l),  SCOST(NCYC) 

514  LC  *  LC  ♦  4 

5  1  5  1  0  7  0  FORMAT!  / 20X  ,'  *****  MAXIMUM  COST  =  '  . F 1  1  0,'  ***»*'/ 

516  ♦  (  2  0  X  .  '*»»**  MINIMUM  COST  =  ',F11  0,'  »**»*') 

517  WRITE'DEV, 1075)  SCOST(l)  -  SCOST(NCYC) 

518  LC  *  LC  ♦  2 

5  1  9  1  0  7  5  FORMAT!  /20X  ,' *****  RANCE  =  ',FU  0.'  ****»') 

5  2  0  I  FORTH  «  NCYC/4 

521  WRITE  ( DEV ,  1  0  7  6  JSCOSTiNC YC - I  FORTH)  , SCOSTI 1 ♦ I  FORTH ) 

5  2  2  1  0  7  6  FORMATt  / 20X  ,' *****  FOURTH - SPR E A D  '  , F 1 1  0,'  »»»»»', 


523 

♦ / 20X . '«*»*•' 

.  1  6  X  .  F  1  1  0  , 

mti 

»  ’  ) 

524 

LC  *  LC  ♦  5 

525 

I F ( DEV  EO  0  ) 

PAUSE 

52  6 

IFfDIS  EO  1 

)  WRITE'DEV 

,1  0  2  0  ) 

IDF 

527 

I F ( D I S  EO  1  ) 

L  C  =  L  C  *  3 

5  2  8 

IF  (TCK  EQ  1 

)  WRITE'*  ' 

<  1  X  .  2  A  ' 

)  ‘  )  CH 

529 

CALL  HE  AD  1 (DEV) 

530 

LC  =  LC  ♦  5 

5  3  1 

DO  1100  1=1. 

NLOT 

D  Line* 
1  5  32 
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T I  C  K  =  '  ■ 

I F  « D I S  EQ  0  ) CO  TO  108  0 
I F ( I  GE  IDF)  TICKs'*' 

CVP<  I  )=CWP<  I  )  /  C  YC  L  E  S  *  1 00 
TOT  A  L  =QM (  !  !  +  QS <  I  ! 

UR  ITE i DEV .  1090!  I  . CVP < I  )  . TOTA L . AC  LOT (  I  )  . T I CX  APUCL(I)  TICK, 

♦  A  SUC  L (  I  )  ,  T  I  C  K  .  A  L  UC  (  I  >  TICK 

i  FORMAT  2X ,  I  2 ,  3X  F6  2.4X.I7  4X  FU  0.A1.1X  F7  0.A1.4X, 

♦  F  7  0  A  1  5  X  .  F  7  0  .  A  1  ) 


I F ( LC  LT  57!  GOTO  1100 
I F ; LC  LT  63  >  GO  TO  1100 
CALL  ENDP < LC  TCK  ITT  DEV) 
CALL  PACE <  I  PAGE  LC  TCK  DEV) 
CALL  HEAD! < DEV  5 


L  C  *  L  C  ♦  5 


CONTINUE 


TGTALsQPC .QSSC 

WR  ITE ( DEV ,  1110'  TOTAL 

IF  i TC  K  EO  1  :  WRITE'  * 

L  C  =  L  C  ♦  2 

I  F  LC  LT  5  2)  GOTO  1150 


(IX  2  A  \ 


CH  .  '  C  2  J  ' 


I F ■ L C  LT  56  >  GO  TO  1150 
CALL  ENDP ( LC  TCK  ITT  DEV 


GOTO  1  1 7  5 


CALL  FACE  ’.PAGE  LC  TCK  DEV’ 

FORMAT!  /IX  'TOTAL  NUMBER  OF  UNITS  =  1 7  ' 

'  FORMAT  / i  ) 

L  C  *  L  C  ♦  4 

URITEiDEV ,  112  0  > 
i  FORMAT!  // 1 X DATA  USED  IN  RUN---)  '  ,  2  A  6  ,  2 X  ,  A  8  ,  2 X  , 

♦  /  :  X  ??(*')) 

IFIDEV  EQ  0)  PAUSE 
WRITE 'DEV  1170  CIP 
L  C  *  L  C  ♦  I 

IF  LC  LT  57'  GOTO  1 1 7 5 
I  F i LC  LT  6  3’  CO  TO  1  1 75 
CALL  ENDP'LC  TCK  ITT. DEV' 

CALL  PAGE (  I  PACE  LC  TCK  DEV ) 

)  FORMAT'  / 1 X .  PR  IME  FIRST  UNIT  COST- -M I N >  '  . F 8  0 

»  F  8  0  2  X  MAX)  '  . F8  0 ) 
i  UR ITE ( DEV .!  1 80  >  C ISS 
L  C  =  L  C  ♦  1 

IF ! LC  LT  57)  COTO  1185 
I F ( LC  LT  63)  CO  TO  1185 
CALL  ENDP ' LC  TCK  ITT  DEV! 

CALL  PAGE!  IPAGE  LC  TCK. DEV) 

)  FORMAT'  IX  SECOND  SOURCE - MJN>',F8  0, 

♦  F  0  0  2  X  MAX'  F  8  0  > 

5  WR ITE ( DEV  1  1  90  )  BP 

L  C  =  L  C  ♦  1 

I F  L C  LT  5  9)  GOTO  1195 
IF-  L C  LT  63)  GO  TO  1195 
CALL  ENDP  f  LC  TCK .ITT, DEV) 

CALL  FACE (  I  PAGE  LC  TCK, DEV' 

)  FORMAT'  IX  FRIME  PCURVE  SLOPE - MIN)  IX  F5 

♦  I  X  F  5  3  4  X  MAX  IX  F5  3 

5  WR ITE ■ DEV  1200'  ESS 

L  C  =  L  C  ♦  1 

I  F ' LC  LT  5  7 )  GOTO  120  5 


LIKELY)  '  , 


7  X  ,  'MOST  LIKELY- 


MOST  LIKELY' 
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571  I F ( LC  LT  63)  GO  TO  1205 

592  CALL  ENDP(LC,TCK, ITT, DEV) 

593  CALL  PACE ( 1PACE , LC ,TCK , DEV) 

5  9  4  1  2  0  0  FORMAT!  1  X  SECOND  SOURCE - MIN>',1X,F5  3  ,  4  X  ,  '  MOST 

595  +  1  X  ,  F  5  3 , 4  X ,  *  MAX)  '  , 1 X  ,  F5  3  ) 

5  9  6  1  2  0  5  WR ITE  <  DE V ,  12  10)  NCYC 

5  9  7  IF  ( TCK  EO  1)  WR I TE ( * ,  '  ( 1 X , 2  A \ )  '  ) CH ,  ' £  2 J ' 

598  LC=LC+1 

5  9  9  I F ( LC  LT  5  2 )  GOTO  12  15 

6  0  0  I F  <  LC  LT  56)  GO  TO  1215 

601  CALL  £NDP(LC,TCK, ITT, DEV) 

6  0  2  CALL  PAGE <  I  PAGE , LC ,TCK , DEV ) 

6  0  3  1  2  1  0  FORMAT!  1 X NUMBER  OF  CYCLES - >  ',14) 

604  1215  CALL  HEAD2 (DEV) 

6  05  LC  =  L  C  +  5 

606  DO  1240  I = i , NLOT 

1  6  0  7  WRITE(DEV,  1  2  3  0  )  I  , QM( I )  , QS ( I  )  ,  ( SFP ( I  , J  )  , J= 1  ,  3 )  ,  ( SFSS <  I  ,  J) 

1  6  0  8  ♦ (ROTP ( 1 , J)  , J* 1 , 3 ) , (ROTSS! I , J ) , J=1  ,  3  ) 

1  609  LC  =  LC ♦  1 

1  610  I F ( LC  LT  57)  COTO  1240 

1  611  IF(LC  LT  63)  CO  TO  1240 

1  612  I F ( !  EQ  NLOT)  GO  TO  1240 

1  613  IF  (TCK  EQ  1)  WR ITE ( * ,  '  (  1  X  ,  2  A  \  )  ■  )  CH ,  '  C 2 J ' 

1  614  CALL  ENDP ( LC , TCK , ITT , DEV ) 

1  615  CALL  PAGE! IPACE.LC, TCK, DEV) 

1  616  CALL  HEAD2 (DEV) 

1  617  LC  =  LC  ♦  5 

1  6  1  8  1  2  3  0  FORMAT!  1  X  ,  I  2  ,  1  X  ,  F5  0,1-X,F5  0  .  1  2  !  1  X  .  F  4  2)) 

1  619  1240  CONTINUE 

6  2  0  IF  (TCK  EQ  1)  WR  ITE  (  *  ,  '  (  1  X  ,  2  A  \  )  '  )  CH  ,  '  [  2  J  ' 

621  CALL  ENDP(LC,TCK, ITT, DEV) 

622  IFfDEV  EQ  0)  PAUSE 


1  1 
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LIKELY) 
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I  F ( PC F  EQ  0  )  GO  TO  1246 
CALL  PAGE ( IPAGE , LC , TCK , DEV) 

WR ITE ( DEV ,  l  2  45  ) 

SF=  1  0 

CALL  SCALE ( SF , DEV ) 

CALL  LINE(DEV) 

CUM=  1 

CALL  PL OTA ( S F , CUM , NC YC , F I NC , DE V ) 

CALL  LINE(DEV) 

CALL  SCALE ( SF , DEV ) 

IF  'DEV  NE  1  )  WR ITE ( DEV ,  1  2  4  5  ) 

FORMAT!  1 X ,  ' STRATECY  COST '  ,  1 8 X .  ' C UMU L AT  I  V E  PROBABILITY 
LC*LC*57 

IF  (TCK  EQ  1)  WRITE!* ,’(  IX,  2A\ )'  )CH,  ' C2J' 

I  F ( DEV  EQ  0)  PAUSE 

CALL  ENDP < LC , TCK , ITT. DEV ) 

I  F  ( PDF  EQ  0 )  CO  TO  12  48 
CALL  PAGE (  IPAGE , LC .TCK , DEV) 
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650  C************************** 

651  CUM=0 

65  2  SF  =  1 0  0 

6  5  3  VRITE!DEV,  1247) 

654  CALL  SCALE ( SF . DEV ) 

655  CALL  LINE(DEV) 

656  CALL  PLQTA ( SF , CUM , NC YC , FINC ,DEV) 

657  CALL  LINE(DEV) 

658  CALL  SCAL  E ( SF , DEV ) 

659  VRITEtDEV, 1247) 

66  0  1  2  4  7  FORMAT! IX ,  'STRATEGY  COST '  , 2 4 X  ,  ' PROBAB I L 1 TY ' ) 

661  LC  =  LC  +  5  7 

662  IF  (TCK  EO  1 >  VR ITE ( * ,  ' ( 1 X , 2 A \ ) 1 > CH ,  ' 1 2 J ' 

663  CALL  ENDP(LC,TCK, ITT, DEV) 

664  I F ( DEV  EQ  0)  PAUSE 

665  1248  I PAGE= 1 E ' 

666  CALL  PAGE! IPAGE.LC.TCK, DEV) 

667  WR ITE ( * , 1 249 ) 

668  1249  FORMAT! //, IX ,' ANOTHER  RUN  ( Y , N )  ?  ') 

6  6  9  READ!*,  1  2  5  0  )  ANS 

670  1250  FORMAT! A1 ) 

671  DEV  =  0 

672  IF  (  f  ANS  EQ  *Y'  )  OR  !  ANS  EQ .  'y'  )  )  COTO  570 

673  CO  TO  550 

674  1255  WRITE  (*,1256) 

675  1256  FORMAT! / 1 X ,' CDAP  FINISHED  --  GOOD  DAY1') 

o  7  6  STOP 

677  END 


Name 

Type 

Offset  P 

Class 

ABS 

INTRINSIC 

ACLOT 

REAL  *  8 

2  9  9  2 

/  RD 

/ 

ALOG 

I NTR  I 

NS  I  C 

ALUC 

REAL'S 

3  192 

/HD 

/ 

AMID 

REAL 

2  4  6  2 

ANS 

CHAR* 1 

1362 

APUCL 

R  EAL  *  8 

3  3  9  2 

/RD 

/ 

ASUCL 

REAL’S 

35  9  2 

/RD 

/ 

A  VC 

REAL  *  8 

2  4  5  4 

BBP 

REAL 

2  3  08 

BBS 

REAL 

2  3  16 

BP 

RE A  L  *  8 

144 

/RD 

/ 

BPT 

REAL 

2  140 

BSS 

REAL'S 

168 

/RD 

/ 

BSST 

REAL 

2  14  4 

CH 

CHAR* 1 

1118 

CHAR 

INTRINSIC 

CIP 

REAL'S 

96 

/RD 

/ 

C  I  PT 

REAL 

2  132 

CISS 

REAL'S 

120 

/RD 

/ 

C  ISST 

REAL 

2  136 

COST 

REAL'S 

CUM 

REAL 

3  7  0  4 

CVP 

R  E  A  L  *  8 

802 

CYCLES 

REAL 

1802 

DEV 

INTECER*  4 

112  0 

Pig e  13 
11  -22-85 
17  19  93 

D  Line#  1  7  IBM  Personal  Computer  FORTRAN  Compiler  V2  00 


DISC 

REAL 

1002 

DP 

REAL 

2  3  7  6 

DS 

REAL 

2380 

DSQRT 

INTRINSIC 

FID 

REAL*  8 

0 

/RD 

/ 

FINC 

REAL 

2  400 

FNAME 

CHAR*  1  2 

3792 

/RD 

/ 

HOLD 

REAL 

2  3  9  6 

I 

INTEGERM 

1572 

ICK 

INTECERM 

2  3  8  8 

ID 

INTEGER*  4 

2084 

IDAY 

INTECER*2 

3812 

/RD 

/ 

IDF 

INTEGER*  4 

1912 

I  FORTH 

I NTEGER  *  4 

2  976 

I  J 

INTEGER*4 

2  3  5  2 

I  MONTH 

I NTEGER *2 

3810 

/RD 

/ 

1  PAGE 

INTEGER*4 

2  47  4 

ITT 

I NTEGER  *  4 

1114 

IX 

REAL  * 8 

1564 

I  Y 

INTEGER*4 

1560 

IYEAR 

INTEGER*  2 

3  80  8 

/RD 

/ 

J 

I NTEGER  *  4 

2  2  5  2 

LC 

INTECER*  4 

2  4  7  0 

Ml 

INTECER*  4 

1102 

M2 

I NTEC  ER  *  4 

1106 

M3 

INTECER*  4 

1110 

N 

!NTEC£R*4 

2  3  8  4 

NCYC 

I NTEGER  *  4 

1792 

NLN 

INTEGER*4 

2120 

NLOT 

I NTEGER  *  4 

3  8  0  4 

/RD 

/ 

OPN 

LOG  ICAL  *  4 

***** 

PAVC 

REAL  *  8 

22  3  6 

PB 

REAL 

2172 

PCF 

REAL 

1592 

PCOST 

REAL’S 

408 

IK 

/ 

PDF 

REAL 

1588 

PFUC 

REAL*  8 

2156 

PPCOST 

REAL’S 

2212 

PROT 

REAL 

2  2  84 

PSF 

REAL 

2  26  0 

PUCOST 

REAL 

23  12 

PV 

R  EAL  *  8 

0 

IK 

/ 

Q1P 

REAL 

2  3  3  2 

Q1S 

REAL 

2  34  0 

Q2P 

REAL 

2  3  3  6 

Q2S 

REAL 

2  3  4  4 

QM 

REAL’S 

192 

1  RD 

/ 

OP 

REAL 

2  32  4 

QPC 

REAL 

2  2  2  8 

QS 

REAL’S 

392 

/RD 

/ 

QSS 

REAL 

2  3  2  8 

QSSC 

REAL 

2  2  3  2 

RANDOM 

REAL’S 

FUNCTION 

RN 

REAL 

1576 

ROTP 

REAL’S 

17  9  2 

1  RD 

f 

ROTPT 

REAL’S 

602 

ROTSS 

REAL'S 

2  3  9  2 

/RD 

! 

ROTSST 

REAL'S 

402 

SAVG 

REAL'S 

2  2  4  4 

"V  -v  ."V  '  -T»  1  -V  -V 


^  % 
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SCOST 

REAL*  8 

808 

SF 

REAL 

3  70  0 

SFP 

REAL*  8 

592 

SFPT 

REAL'S 

202 

SFSS 

REAL'S 

1192 

SFSST 

REAL  *  8 

2 

SHOW 

LOG  I  CAL  *  4 

*  *  «  *  * 

SSB 

REAL 

2176 

SSCOST 

REAL  *  8 

2  2  2  0 

SSFUC 

REAL  *  8 

2164 

SSROT 

REAL 

2  2  9  6 

SSSF 

REAL 

2  2  7  2 

SUCOST 

REAL 

2  3  2  0 

TCK 

I NTEGER  *  4 

2  4  8  4 

TICK 

CHAR* 1 

3  0  7  6 

TOTAL 

INTEGER*  4 

3  0  7  8 

YP 

REAL*8 

2  3  5  6 

YS 

R  EA  L  *  8 

2  36  4 

/A 

/  RD 
/  RD 


/ 
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678 
67? 
680 
68  1 
682 
68  3 
684 
683 
686 

687 

688 
68? 
6  ?  0 
6?  1 
692 
6  9  3 

694 

695 
6?6 

697 

698 

699 

700 
70  1 


C" 

c« 
c* 
c  * 
c « 
c* 
c* 
c  * 


THIS  RANDOM (IX)  FUNCTION  GENERATES  A  UNIFORM  RANDOM  NUMBER 
BETWEEN  0  0  AND  1  0 

THE  RANDOM  NUMBER  GENERATOR  IS  BASED  ON  DR AND (IX)  GIVEN  IN 
'SIMULATION  MODELING  AND  ANALYSIS1  BY  LAW  AND  KELTON 


FUNCTION  RANDOM < IX) 

A,P,IX,BlS,B16,XHI, XALO,  LEFTLO , FHI ,X 
B  1  5  /  3  2  7  6  8  DO /  . B 1  6  /  6 5 5  3 6  D0/P/2147483647 


1  DO  ) 


1  DO  ) 


DOUBLE  PRECISION 
DOUBLE  PRECISION 
DATA  A/ 1 6807  DO/ 

X  H  I  =  I  X  /  B  1  6 
XH I x  XH I  - DMOD ( XH I 
X  A  LO  = (  I X-XHI *B 1 6 ) »A 
L  E  FTLO  x  X  A  LO / B 1 6 
LEFTLOx LE FTLO -DMOD ( LEFTLO 
FHI x  XH  I  *  A ♦ L  EFTLO 
K  =  FH I / B  l  3 
K  *K - DMOD (  K  ,  1  DO) 

I  X* (  (  ( XALO- LEFTLO*  B 1 6 >-P)4(FHI-K*B15>*B16>+K 

I F (  I  X  LT  0  DO ) I Xx I X  +  P 

R ANDOMx I  X  *  4  6 5  6  6  1  2  8  7  5 D- 1 0 

RETURN 

END 


DO  / 


Ntme 

Type 

Offset 

A 

REAL*  8 

3  8  7  2 

B  1  5 

REAL'S 

3  8  8  0 

a  1 6 

REAL'S 

3  8  8  8 

DMOD 

FH  I 

REAL'S 

3  9  2  8 

I  X 

R  E  A  L  »  8 

0 

K 

REAL'S 

3  9  3  6 

LEFTLO 

REAL'S 

3’20 

P 

REAL'S 

3  8  9  6 

XALO 

REAL'S 

3  9  12 

XH  I 

REAL'S 

3  9  0  4 

INTRINSIC 


7  0  2  C' 
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7  03  C* 

704  C«  SCALE  .  ARGUMENT  IS  THE  SCALE  FACTOR  TO  BE  USED  IN  LABELING  THE 

705  C*  PLOT  AND  LATER  CALCULATING  PLOT  POINTS 

704  C* 

707  C********* ***************** 


708  SUBROUTINE  SCALE ( SF , IDEV  ) 

709  DIMENSION  D(10> 

710  DO  1240  1x1,10 

1  711  D ( 1 1  *  I / SF 

1  712  1240  CONTINUE 

713  WRITE! IDEV , 1270)  D 

7  1  4  1  2  7  0  FORMAT! 15X,  '0  0  0 ‘  ,10(11. F4  2)1 

715  RETURN 

714  END 

Name  Type  Offset  P  Class 

D  REAL  3944 

I  INTEGER*  4  39  8  4 

IDEV  INTEGER *4  4  * 

SF  REAL  0  * 


717  C************************** 

718  C* 

719  C*  LINE  .  THIS  SUBROUTINE  SIMPLY  LAYS  OUT  THE  REFERENCE  MARKS  FOR 

720  C*  SELECTED  SCALE 

721  C« 


72  2  C *************************  * 

723  SUBROUTINE  LINE! IDEV) 

724  WRITE! IDEV, 1 280) 

7  2  5  1  2  8  0  FORMAT! 14X 10  (  ' - ♦')) 

724  RETURN 

727  END 

Name  Type  Offset  P  Class 

IDEV  INTEGER*  4  0  * 


728  C************************** 

729  C* 

730  C*  PLOTA  -  ARGUMENTS  ARE  THE  SCALE  FACTOR,  SELECTION  PARAMETER  FOR 

731  C«  CUMULATIVE  OR  DENSITY  PLOT(CUM),  VALUE  OF  THE 

732  C*  NUMBER  OF  SIMULATION  C YCLES ( NCYC ) ,  AND  CLASS  INTERVAL 

733  C*  VALUE(FINC) 

7  3  4  C* 

735  c************************** 


73  4  SUBROUTINE  PLOTA ( S F , CUM , NC YC , F I NC ,  I  DEV  ) 

7  37  RE AL  *  8  P V , PCOST , SCOST 

7  3  8  COMMON/ A/PV! 5 1  )  , PCOST! 50 ) , SCOST!  50  00  ) 

7  3  9  DIMENSION  AV( 5  1  ) 

740  CHARACTER  AV 

741  COST*SCOST(NCYC ) 

7  4  2  V A  L  *  0 

7  4  3  DO  1  2  9  0  1  =  1  ,  5  0 

1  744  AV! I ) * '  ' 

1  745  1290  CONTINUE 

7  4  4  WRITE! IDEV , 1  3  2  0  )  COST .  ( A V ( J  )  , J . 1  , 5 0 )  , VA L 
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747  COST=COST- F I NC / 2 

748  DO  1330  1=1,50 

1  749  I F ( CUM  EQ  0  )  VAL=PCOST!I> 

1  750  IF(CUM  EQ  1  )  VAL=VAL+PCOST( I ) 

1  751  IVAL*VAL*5  *SF*  5 

1  752  I F ( ! VAL  GT  5 1 ) I VAL  =  5 1 

1  753  DO  1  3  00  U=  1  , I VAL 

2  754  A V ( J ) = 1  *  ' 

2  755  1300  CONTINUE 

1  756  I VAL= I VA  L ♦  1 

1  757  DO  1 3 1 0  J* I VAL , 50 

2  75  8  A  V ( J )  a  '  ' 

2  759  1310  CONTINUE 

1  760  COSTsCOST+FINC 

1  761  WRITE! IDEV, 1320)  COST , ( AV ( J ) , J= 1 . 5 0 ) , VAL 

1  7  6  2  1  3  2  0  FORMAT! 4X , FI  1  0 ,  1  X ,  '  !  '  , 5 0 A  1 , 2 X  ,  F 6  4) 

1  7  6  3  1  3  2  5  FORMAT! 4X , FI  1  0 ,  1 X ,  '  1  '  ,  5 0 A  1  ,  2 X  ,  F 6  4) 

1  764  1330  CONTINUE 

765  RETURN 

766  END 


Name 

Type 

Offset 

P 

Cl 

AV 

CHAR* 1 

4  0  3  4 

COST 

REAL 

4  0  8  6 

CUM 

REAL 

4 

* 

FINC 

REAL 

1 2 

t 

I 

I  NT  E  G  E  R  *  4 

409  4 

IDEV 

I NTECER  *  4 

1  6 

* 

I  VAL 

INTEGER*  4 

4  106 

J 

I NTECER  *  4 

4098 

NC  YC 

I  NT  E  G  E  R  *  4 

8 

* 

PCOST 

REAL'S 

408 

1  A 

PV 

R  E  AL  *  8 

0 

IK 

SCOST 

REAL*  8 

808 

IK 

SF 

REAL 

0 

t 

VAL 

REAL 

4  0  9  0 

7  6  7  c* ******************* ****** 

7  6  8  C* 

749  C*  RREAD  -  ARGUMENT  IS  THE  FILE  NAME  LENGTH  THIS  SUBROUTINE 

770  C*  READS  THE  SELECTED  DATA  FILE  FOR  THOSE  PROGRAM  MODES  THAT 

771  C«  USE  AN  EXISTING  FILE 

7  7  2  C* 

773  c •••*•*•**••****•••*•**** * 

774  SUBROUTINE  RREAD1NLN ) 

7  7  5  COMMON/ RD /FID!  127  CIP(3>  CISSC3)  ,BP!3)  BSS(3)  ,OM(25>  . 

776  +OS ( 2  3 )  ,SFP(25,  3)  , S  F  S  S ( 2  5 .  3)  , ROTP  <25,3), ROTSS! 25,3), AC  LOT! 2  5  >  , 

7  7  7  *ALUC ( 25 )  . APUCL < 25  )  ,  ASUCL ( 2 5  )  , FNAME . NLOT  I  Y EAR  .  I  MONTH ,  I  DA Y 

7  7  8  REAL  *  8  F I D , C I P , C I SS , B P , BSS . QM  QS . SFP  SFSS  ROTP , ROTSS ,  ACLOT 

779  ♦  ALUC , APUCL , ASUCL 

7  8  0  CHARACTER  *  1 2  FNAME  DUMMY 

781  INTEGER  *2  I  Y E A R  .  I  MONTH ,  I D A Y 

782  CALL  GETFILE'  FNAME  3  ) 

’83  RE  AD  <  3  1  3  5  0.  END= 1 4 1 5 ' NLOT 

784  1350  FORMAT! 5X12) 

78  5  READ!  3  1  3  6  0  )  CIP 

786  1360  FORMAT! 2 9X  F8  0  14X  F8  0  6X  F8  0) 


Page  17 
11-22-85 
17.1?  43 

D  Line*  1  7  IBM  Personal  Computer  FORTRAN  Compiler  V2  00 

7  87  READ ( 3 .  1360)  CISS 

788  READ (3,1370)  BP 

789  1  370  FORMAT ( 2  9  X , FS  3,17X,F5  3  ,  9  X  .  F  5  3) 

790  READ( 3 , 1370)  BSS 

791  OO  1390  1*1,4 

1  792  READ (  3  , 1380)  DUMMY 

1  793  1  300  FORMAT ( A  1 2 ) 

1  794  1390  CONTINUE 

795  DO  1410  1*1, NLOT 

1  79  6  READ (  3 ,1  400, END* 1 4 1 5 )QM( I ) ,QS ( I ) , < SFP ( I , J ) , J* 1 , 3 ) , ( SFSS ( I  ,  J)  , 

1  797  ♦ J* 1 , 3 ) , ( ROTP ( I , J ) , J* 1 , 3 ) , ( ROTSS ( I , J ) , J* 1 , 3 ) 

1  798  1  400  FORMAT (3X,F50,1X,F5  0 , 1 2 ( 1 X , F 4  2>) 

1  799  ACLOTf I >  *0 

1  800  ALUC (  I  ) *  0 

1  801  APUC  L ( I ) *  0 

1  80  2  ASUCL  <  I  ) =0 

1  803  1410  CONTINUE 

8  0  4  1  4  1  5  CLOSE ( 3  ) 

805  RETURN 

806  END 


Name 

Type 

Offset 

P  Class 

ACluT 

REAL*8 

2  9  9  2 

/  RD 

/ 

ALUC 

REAL*  8 

3  192 

/RO 

/ 

APUCL 

REAL  *  8 

3  3  9  2 

/RD 

/ 

ASUCL 

REAL*8 

3  5  9  2 

/RD 

/ 

BP 

REAL  * 8 

144 

/RD 

/ 

BSS 

REAL*  8 

168 

/RO 

/ 

CIP 

REAL*8 

96 

/RD 

/ 

CISS 

REAL*8 

120 

/RD 

/ 

DUMMY 

CHAR  *  1 2 

4  246 

FID 

REAL*8 

0 

/RD 

/ 

FNAME 

CHAR* 1 2 

3  7  9  2 

/RD 

/ 

I 

INTEGER*4 

4  2  4  2 

IDAY 

INTEGER*2 

3812 

/RD 

/ 

I  MONTH 

INTEGER*2 

38  10 

/RD 

/ 

I  YEAR 

I NTEGER  *  2 

38  0  8 

/RD 

/ 

J 

INTECER»4 

4  2  6  8 

NLN 

I NTEGER *4 

0 

* 

NLOT 

I NTEGER  *  4 

3804 

/RD 

/ 

QM 

REAL*8 

192 

/RD 

/ 

OS 

REAL  *  8 

392 

/RD 

/ 

ROTP 

REAL  *  8 

1792 

/RD 

/ 

ROTSS 

REAL*8 

2  3  9  2 

/RD 

/ 

SFP 

R  E AL  *  8 

592 

/RD 

/ 

SFSS 

REAL  *  8 

1192 

/RD 

/ 

807  C‘*»***** 

808  C» 

809  C«  CREATE 
8  10  C* 

8  11  C  * 

8  12  C* 

813  C* 

8  14  C» 

815  C* 


-  THIS  SUBROUTINE  IS  USED  TO  CREATE  A  NEW  DATA  FILE 

REMOVAL  OF  FILES  IS  HANDLED  WHILE  IN  THE  OPERATINC 
SYSTEM  COMMAND  MODE  ARGUMENTS  REPRESENT  ENTRY 
POINTS  WHEN  CALLED  FROM  ‘MODIFY  Ml  SETS  THE 
BASIC  ENTRY  M2  IS  THE  STARTING  LOT  NUMBER.  AND  M3 
IS  THE  ENDING  LOT  NUMBER 


D  Line*  1 
817 
S  1  8 

819 

820 
82  1 
822 
823 
82  4 

825 

826 

827 

828 
829 
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SUBROUTINE  CREATE ( M 1 , M2 , M3 ) 

COMMON /RD/ F ID< 12),CIP<3),CISS<3),BP(3),BSS(3>,QM<25), 

♦  QS<  2  5 ),SFP(25,3),SFSS(25,3), ROTP!  2  5 , 3 ) , ROTSS( 25, 3), ACL OT (25), 

♦  A  LUC ( 2  5  )  ,  APUCL!  2  5 )  , ASUCL ( 25 ) , FNAME , NLOT ,  I  YEAR  ,  I  MONTH , I  DAY 

R  E AL  *  8  PV , PCOST, SCOST , F ID , C I P , C ISS  ACLOT  ALUC  ,  BP , BSS ,  SFP.SFSS, 

♦  ROTP , ROTSS ,SFPT(25),SFSST(25), ROTPT! 2 5  >  , ROTSST ( 2  5 ) , QM,  QS , CVP (25) 

♦  , A VC , COST, PPCOST, SSCOST, PAVC , SAVC ,YP,YS,SSFUC,  PFUC  ,  ASUCL , APUCL 
REAL  DISC ( 25  > 

CHARACTER  *  1 2  FNAME, ANS 
INTEGER  *  2  I  YE AR ,  I  MONTH , I  DA Y 
LOCICAL  OPN 


I  F  (  M 1 


1 )CO  TO  1555 


I F (Ml  EQ  2 ) CO  TO  1495 
I F (Ml  EQ  3  )  CO  TO  152  5 
I F  <  M 1  EQ  4 ) CO  TO  1535 
1 F ( Ml  EQ  5 )CO  TO  1545 
I F ( M 1  EQ  6 ) CO  TO  1555 
1  4  2  0  VR ITE ( * ,  1  4  3  0  > 

1430  FORMAT ( /IX, 'WHAT  IS  THE  DATA  FILE  NAME') 

READ (*,1440)  FNAME 
VR  ITE ( «  ,  1  4  4  5  )  FNAME 
1  4  40  FORMAT ( A  1 2 ) 

1  4  4  5  FORMAT (  1 X  'THE  DATA  FILE  NAME  IS  '  . A 1 2 ) 

1448  FORMAT (12) 

1  4  5  0  FORMAT ( F  8  0) 

1485  WR ITE ( * . 1 490 ) 

1490  FORMAT ( / 1 X , ‘ HOW  MANY  LOTS  ARE  THERE  IN  THIS  DATA  SET  5 
READ ( « , 1 448 )NLOT 
M2  *  1 
M3  xNLOT 

1493  IF  (Ml  EQ  1)  RETURN 
1495  WR ITE ( * , 1500) 

1  500  FORMAT! /IX,  ' FIRST  UNIT  COST  FOR  PR  I  ME ' / 1 X  ,' M I N I  MUM 
READ! *  ,  1  4  5  0  >C  IP  <  1  > 

WR I TE ( * ,1510) 

1510  FORMAT ( / 1 X , ' MOST  LIKELY  ') 

READ ( *  ,  1  4  5  0  )  C  I  P ( 2  ) 

WR ITE ( * , 1 520 ) 

1520  FORMAT! / 1 X , ' MAXIMUM  ' ) 

READ! » , 1  4  5  0  >C IP  <  3  > 

I  F ( M 1  EQ  2  !  R  ETURN 
1525  WRITE ( * , 1 530 ) 

1  5  3  0  FORMAT!  /  1 X  SECOND  SOURCE  FIRST  UNIT  COST '  / 1 X ,  M I N I  MUM 
READ! * ,  1  4  5  0  )C  ISS!  1 ) 

WR  ITE ( * ,  1 5 1 0 ) 

R E AD ( * ,  1  450  )C  I  SS  <  2  ) 

WRITE!* , 1520) 

READ ( * , 1  450  JCJSS! 3 ) 

I  F ! M 1  EQ  3 ) R  ETURN 
1  5  35  WR ITE ( * .  1  5  4  0  ) 

1  5  4  0  FORMAT'  /  1 X  ,'  PR IME  PERFORMANCE  CURVE  SLOPE  (  XXX''/  IX 
♦  MINIMUM  ' ) 

READ ( * ,  1  4  5  0  )  BP ( 1  ) 

WR ITE ( * . 1 5 1 0 ) 

READ  <  *  1  4  5  0  )  BP ( 2  ) 

WRITE'*  1520' 

READ'*  1  4  5  0  >  8  P  (  3  > 

I F ( M 1  EQ  4  > RETURN 
1545  WRITE'*  1550) 


••  .**  :  A  A  A 


MINIMUM 


IURVF  SLOPE 


D 

Line* 

1 

7  IBM 

Personal  C  ompu  t  e  r 

FORTRAN 

C  omp  i  1 1 

87  6 

1550 

FORMAT! /IX,' SECOND  SOURCE 

PERFORMANCE  CURVE 

SLOPE  ( 

XXX  )  '  / 

877 

< 

►  IX  'MINIMUM  ' > 

878 

READ! * , 14501BSS! 1 ) 

879 

WRITE!* , 1510 ) 

880 

READ!*,  1  4  5  0  )  BSS ( 2 ) 

88  1 

WRITE!* , 1520 ) 

882 

READ! * ,  1  4  50  )  BSS! 3 ) 

883 

I  F  !  Ml  EQ  5  )  R  ETURN 

884 

1555 

DO  1  6  2  0  I  *M2 , M3 

1 

885 

WRITE! * , 1  560  > I 

1 

8  8  4 

1560 

FORMAT! / 1 X ,' DATA  FOR  LOT  • 

'  , I 2 / 1 X  ,  ' MAJOR  SPLIT  QUANTITY') 

1 

887 

READ! * , 1 450 )QM( I) 

1 

888 

WRITE!* , 1570) 

1 

889 

1570 

FORMAT! 1 IX , 'MINOR  SPLIT  QUANTITY') 

1 

8  90 

READ! * ,  1450  )QS! I ) 

1 

89  1 

WRITE!* , 1580) 

1 

892 

1580 

FORMAT! / 1 X ,' PRIME  SHIFT  FACTOR  !  XXX ) ‘ / 1 X ,  *  MI NI MUM 

'  ) 

1 

89  3 

READ! * , 1 450 ) SFP (1,1) 

1 

894 

WRITE ( « , 1 5 1 0 ) 

1 

895 

READ (*,1450) SFP! 1,2) 

1 

896 

WRITE! « , 1520 ) 

1 

897 

READ! * ,  1  450  >  SFP ! 1,3) 

1 

8  78 

WRITE!* , 1590) 

1 

8  99 

1590 

FORMAT! / 1 X ,' SECOND  SOURCE 

SHIFT  FACTOR  (  XXX ) '/IX,' 

MINIMUM 

1 

900 

READ!* ,  1  4  5  0  )  SFSS  < 1,1) 

1 

9  0  1 

WRITE!* , 1510) 

1 

902 

READ! *  1  45  0  )SFSS( 1,2) 

1 

903 

WRITE!*, 1520) 

1 

904 

READ! * , 1 450 )SFSS( 1,3) 

1 

905 

WRITE!*. 1600) 

1 

904 

1400 

FORMAT! / 1 X ,' PRIME  ROTATION 

I  FACTOR  !  XXX  )  '  /  1  X 

,  'MINIMUM  '  ) 

1 

907 

READ! « ,  1  450  )ROTP<  1,1) 

1 

908 

WRITE!* ,1510) 

1 

909 

READ! * , 1 450 )ROTP( 1,2) 

1 

9  10 

WRITE!* , 1520) 

1 

9  1  1 

READ! * , 1 450 )ROTP( 1,3) 

1 

9  1  2 

WRITE!* ,1610) 

1 

913 

16  10 

FORMAT! / IX , 'SECOND  SOURCE 

ROTATION  FACTOR  ( 

XXX  )  '  /  IX  , 

1 

9  14 

♦  'MINIMUM  ') 

1 

915 

READ! * ,  1  450  )ROTSS( 1,1) 

1 

9  1  6 

WRITE!* , 1510) 

1 

9  1  7 

READ!  «  ,  1  4  5  0  )ROTSS( 1,2) 

1 

9  1  8 

WRITE!* , 1520) 

1 

9  1  9 

READ ( * , 1 450 )ROTSS( 1,3) 

1 

920 

1420 

CONTINUE 

92  1 

I  F  (  M 1  EQ  DRETURN 

922 

I F ( M 1  EQ  4 ) RETURN 

92  3 

CALL  RWRITE 

924 

WR ITE ( *  .  1  4  3  0  ) 

92  5 

1630 

FORMAT! // 1 X ,' ANOTHER  FILE 

( Y ,N>  ’  '  > 

926 

READ! • , 1640) ANS 

92  7 

16  40 

FORMAT ( A  1  ) 

928 

IF  (  (  ANS  EQ  ' Y '  )  OR 

(  ANS  EQ  '  y  '  ) 

)  GOTO 

1420 

9  2  9 

RETURN 

930 

END 
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Na»e  Type 
AC  LOT  REAL'S 


Offset  P  Class 
2992  /RD  / 


L*a  v*j\i  oVO  «>_i.  •  ^  «  ,y.  .*>  Ms 
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ALUC 

REAL’S 

3192 

/RD 

/ 

ANS 

CHAR  *  1  2 

6  2  0  5 

APUCL 

REAL  *  8 

3  3  9  2 

/RD 

/ 

ASUCL 

REAL’S 

35  92 

/RD 

/ 

AVC 

REAL  *  8 

*  *  ft  ft  ft 

BP 

REAL’S 

144 

/RD 

/ 

BSS 

REAL’S 

1  68 

/RD 

/ 

CIP 

REAL  *  8 

96 

/RD 

/ 

CISS 

REAL’8 

120 

/RD 

/ 

COST 

REAL’S 

ttttt 

CVP 

REAL’S 

5118 

DISC 

REAL 

5318 

FID 

REAL’S 

0 

/RD 

/ 

FNAME 

CHAR’ 1 2 

3  7  92 

/RD 

/ 

I 

INTECER*4 

5856 

IDAY 

I NTECER  *  2 

3812 

/RD 

/ 

IMONTH 

INTEGER’ 2 

38  10 

/RD 

/ 

I  YEAR 

INTECER*2 

3  8  0  8 

/RD 

/ 

Ml 

INTEGER*  4 

0  « 

M2 

I NTECER  *  4 

4  * 

M3 

I NTECER  »  4 

8  » 

NLOT 

INTECER*  4 

3  8  0  4 

/RD 

/ 

OPN 

LOC I C A  L  *  4 

ft  *  ft  ft  ft 

PAVC 

REAL’S 

ft  «  ft  ft  ft 

PCOST 

RE A  L  *  8 

ft  ft  ft  ft  ft 

PFUC 

REAL’S 

ft  ft  ft  ft  ft 

PPCOST 

REAL’S 

ft  ft  ft  ft  ft 

PV 

REAL’S 

ft  ft  ft  ft  ft 

QM 

REAL*  8 

192 

/RD 

/ 

QS 

REAL’S 

392 

/RD 

/ 

ROTP 

REAL’S 

1792 

/RD 

/ 

ROTPT 

REAL*8 

4918 

ROTSS 

REAL’S 

2  3  9  2 

/RD 

/ 

ROTSST 

REAL’S 

4718 

SAVG 

REAL*  8 

SCOST 

REAL’S 

SFP 

R  EA  L  *  8 

592 

/RD 

/ 

SFPT 

REAL’S 

45  18 

SPSS 

REAL’S 

1192 

/RD 

/ 

SFSST 

REAL’S 

4318 

SSCOST 

REAL’S 

SSFUC 

REAL’S 

ft  ft  ft  ft  ft 

YP 

REA  L  *  8 

YS 

REALM 

931  (timtiiittttniitiuiiiH) 

?  3  2  C» 

?  3  3  C*  RVRITE  - THIS  SUBROUTINE  VRITES  DATA  IN  TO  A  PERMANENT  FILE 

934  C*  IT  IS  USED  BY  *CREATE  AND  ‘MODIFY 

?35  C* 

936 

937  SUBROUTINE  RVRITE 

9  3  8  COMMON/ RD / F I D<  1 2  )  C I P <  3  !  .  C  I  SS( 3  )  B P < 3  )  , B SS <  3  )  QM ( 2 5 >  . 

9  3  9  ♦QS ( 25 )  . SFP (  2  5  3  '  . SPSS (  2  5  3  )  ROTP < 2 5  .  3 '  , ROTSS < 2 5  .  3 >  . AC  LOT < 2 5 > 

940  tALUC  (  25  )  .  APUCL  •'  25  »  .  A3UCL  <  25  >  FNAME  NLOT.IYEAR  IMONTH  IDAY 

941  REAL’S  PV.PCCST  SCOST  FID  CIP  C I SS  AC  LOT . ALUC  . BP . BSS  SFP  SPSS 

9  4  2  «•  ROTP  ROTSS  .  S  FPT  <  2  5  >  .  S  F  SST  <  2  5  '  ROTPT(  2  5  )  ROTSST<  2  5).  QM  QS  CVP  '25' 

943  ♦  .  AVC  COST  PPCOST  SSCOST  PAVC  SAVG  YP  YS  SSFUC  PFUC  ASUCL  APUCL 
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944  CHARACTER* 1 2  FNAME 

945  INTEGER  *  2  I  YEAR , I  MONTH , I  DA Y 

94  6  REAL  D I  SC ( 2  5  ) 

947  CALL  MAKEFILE!  FNAME,  2  ) 

948  WRITE<2 , 16501NLOT 

949  1650  FORMAT! 'ID  :  1 , 12 ) 

950  WRITE (2, 1660)  !CIP(J),J«1,3) 

95  1  1  6  6  0  FORMAT! '  PRIME  FIRST  UNIT  COST - MIN)  1  , F8  0 , 2X ,  'MOST  LIKELY)' 

952  ♦  F8  0,21,  'MAX) *  , F 8  0 ) 

95  3  WRITE!  2 , 1  6  7  0  > (CISS! J) , J=1  ,  3  ) 

954  1670  FORMAT!'  SECOND  SOURCE-- . --MIN)',F8  0,2X,'MOST  LIKELY)' 

955  ♦  F8  0  ,  2X  ,  'MAX) '  , F8  0 ) 

956  WRITE! 2 , 1680 ) !BPC J) , J=1 , 3 ) 

95  7  1  680  FORMAT!'  PRIME  PCURVE  SLOPE - MIN)',F5  3,5X,'MOST  LIKELY)  ' 

958  ♦  F  5  3  ,  5  X  ,  'MAX)  '  , F5  3) 

95?  WHITEI2, 1690) (BSS(J) , Jrl ,3) 

9  6  0  1  6  9  0  FORMAT!'  SECOND  SOURCE - MIN)',F5  3,5X,'MOST  LIKELY)' 

961  ♦  F5  3  ,  5X  ,  'MAX)  '  , F5  3 ) 

962  WR ITE ( 2 , 1 700 ) 

96  3  1  7  0  0  FORMAT!/'  LOT  LOT  QUAN  SHIFT  F ACTOR '  , 3 X ,  ' SH I  FT  FACTOR’, 3  X , 

9  6  4  +  'ROTATION  F ACT '  , 2 X ,  ' ROTAT I  ON  FACT '  / 1 X ,  ' # '  ,  1  6 X  ,  ' PR  I  ME '  , 7 X , 

9  4  5  +  ‘SECOND  SOURC E '  , 5 X ,  ' PR  I  ME '  , 7 X ,  ' SECOND  SOURC E  '  /  5 X  ,  '  MAX  MIN', 

966  +  2  X  ,  4  (  ' M I N  ML  MAX  ')) 

967  DO  1720  1=1 , NLOT 

1  968  WR ITE ( 2 , 1 7 1 0 )  I , QM< I > , QS< I ) , < SFP < I , J > , J« 1 , 3 > , < SFSS ( I , J > , J= 1 , 3 > , 

1  9  6  9  ♦  (ROTP! I  , J )  ,J=1  3)  ,  fROTSS! I ,J)  ,J=1  ,3) 

1  ”0  1710  FORMAT!  I  2 ,  1  X  ,  F5  0  ,  1  X  .  F  5  0,12(1X,F4  2)) 

1  971  1720  CONTINUE 

9  7  2  C LOSE  !  2 ) 

973  RETURN 

974  END 


Name 

Type 

Offset  P 

Class 

ACLOT 

REAL'S 

2992 

/  RD 

/ 

ALUC 

REAL*  8 

3192 

/  RD 

/ 

APUCL 

REAL'S 

3  3  9  2 

/RD 

/ 

ASUCL 

R  EAL  *  8 

3  5  92 

/RD 

/ 

AVG 

REAL*8 

ttttt 

BP 

REAL'S 

1  44 

/RD 

/ 

BSS 

REA  L  *  8 

168 

/RD 

/ 

C  IP 

REAL'S 

96 

/RD 

/ 

CISS 

REAL'S 

120 

/RD 

/ 

COST 

REAL'S 

CWP 

REAL'S 

70  2  2 

DISC 

REAL 

7  2  2  2 

FID 

REAL'S 

0 

/RD 

/ 

FNAME 

CHAR  » 1 2 

3  7  9  2 

/RD 

/ 

I 

I NTEC  ER  *  4 

78  8  8 

IDAY 

I NTEGER  *  2 

3812 

/RD 

/ 

IMONTH 

INTECER  *  2 

3810 

/RD 

/ 

I  YEAR 

I NTECER  *  2 

3  8  08 

/RD 

/ 

J 

I  NTEGER' 4 

7  3  3  4 

NLOT 

INTEGER*  4 

3  80  4 

/RD 

/ 

PAVG 

REAL'S 

ttttt 

PCOST 

REAL'S 

ttttt 

PFUC 

REAL'S 

ttttt 

PPCOST 

REAL'S 

ttttt 

PV 

REAL'S 

ttttt 
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D  Line* 

1  7 

IBM 

QM 

REAL*8 

192 

/RD 

/ 

QS 

REAL  *  8 

392 

/RD 

/ 

ROTP 

REAL*  8 

1792 

/RD 

/ 

ROTPT 

REAL'S 

4822 

ROTSS 

RE  A  L  *  8 

2  3  9  2 

/RD 

/ 

ROTSST 

REAL'S 

4  4  2  2 

SAVC 

REAL*  8 

***** 

SCOST 

R  EAL  *  8 

SFP 

REAL  *  8 

592 

/RD 

/ 

SFPT 

REAL  *  8 

4  4  2  2 

SFSS 

REAL'S 

1192 

/RD 

/ 

SFSST 

REAL'S 

4  2  2  2 

SSCOST 

REAL'S 

SSFUC 

REAL'S 

YP 

REAL'S 

YS 

REAL'S 

C*  MODIFY - THIS  SUBROUTINE  ALLOWS  MODIFICATION  OF  AN  EXISTINC  DATA 

C*  FILE,  WHEN  CALLED  THE  CURRENT  DATA  IS  DISPLAYED  ALONG 

C*  WITH  LOCATOR  REFERENCES  A  GIVEN  DATA  ELEMENT  CAN  BE 

C*  MODIFIED  BY  ENTERINC  THE  LOCATOR  WHICH  WILL  CAUSE  THE 

C  ’  APPROPRIATE  PROMPT  TO  BE  GIVEN  THIS  ROUTINE  WILL  ALSO 

C*  ALLOW  THE  LOT  NUMBER  TO  BE  EXPANDED  WITH  CORRESPONDING 

:*  INPUT  PROMPTS  FOR  THE  EXPANDED  LOT  DATA  IF  THE  LOT 

C*  NUMBER  IS  REDUCED  EXISTINC  DATA  WILL  BE  RETAINED  AND 

C*  SIMPLY  IGNORED  WHEN  THE  SIMULATION  IS  RUN 


SUBROUTINE  MODIFY 

COMMON/ RD  /  F I D (  12)  ,  C  I  P  '  3  )  .  C  I  SS ( 3  )  ,BP(3>  .  B  S  S  <  3  )  ,QM(25)  , 

♦  QS  '  2  5  )  , S  FP ( 2  5  3),SFSS(2S,3>. ROTP (25,3', ROTS  SC  25,3), ACLOTC  25). 

♦  ALUC  C 2  5 )  , APUCL  <  2  5 )  , ASUCL ( 2  5 )  , FNAME , NLOT ,  I  YEAR  .  I  MONTH ,  I  DAY 
REAL'S  PV . PCOST, SCOST , F ID , C I P , C ISS  ACLOT, ALUC , BP , BSS ,  SFF.SFSS. 

♦  ROTP . ROTSS , S F PT  c  2  5 )  , SFSST (25)  , ROTPTC  25)  ROTS5TC  2 5 )  , QM ,  QS , CWP (25) 
♦ , AVG , COST, PPCOST , SSCOST, PAVC , SAVC  YP.YS.SSFUC,  PFUC, ASUCL .APUCL 

CHARACTER  *  1 2  FNAME , ANS 
I NTEGER  *  2  I Y E A R .  I  MONTH .  I D A Y 
REAL  DI SC  <  25  ) 

1  7  3  0  WR ITE ( •  ,  1  7  40  > 

1  7  4  0  FORMATt  / 1 X ,' WHAT  IS  THE  NAME  OF  THE  FILE  YOU  WISH  TO  MODIFY1' 

R  E AD ( *,1  7  5  0)  FNAME 
1  7  5  0  FORMAT ( A  1 2 ) 

1770  CALL  RREAD(NLN) 

NLOTP  =NLOT ♦ 1 
WRITE' *  .  1  7  8  0  ) N  LOT 

1780  FORMAT (//IX, ' ( 1 )  NUMBER  OF  LOTS  '.12) 

WR ITE ( *  .  1  7  9  0  )  ( C  I  P  <  J  )  ,  J=  1  ,  3  ) 

1  79  0  FORMATt 1 X ,  '  ' 2 )  PRIME  FIRST  UNIT  CO  ST - M I N )  '  , F 8  0.2X.  MOST  LIKELY) 

♦  ,  F8  0  ,  2  X  ,  ' MAX  >  '  . F8  0 ) 

WR ITE ( * .  1  8  0  0  '  ( C  I  SS ( J  )  J=1  3  > 

18  0  0  FORMATt'  (  3  '  SECOND  SOURCE - MIN'-1  F  8  0  2  X  .  1  MOST  LIKELY' 

♦  F  8  0  2  X  'MAX)'  F  8  O' 

WRITE'.*  1810'  'BP(J)  ,J=1  3  > 

1310  FORMAT (  '  4)  PRIME  PCURVE  SLOPE - M  I  N  '  ’  F  5  3  5  X  MOST  LIKELY) 

♦  F  5  3  .  SX  ,  MAX)  '  F  5  3 ’ 

WRITE'*  l  3  2  0  '  '  BSS ( J  ’  J*  1  3  > 


2  X  'MOST  LIKELY) 


D 


1 

1 

1 

1 
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1  0  1  6  1  8  2  0  FORMAT  <  '  (5)  SECOND  SOURCE - MIN  '  F5  3,5X.'MOST  LIKELY)'. 

1017  +  F  5  3 , 5X ,  'MAX  >  '  . F5  3) 

1018  WRITE!*  1830) 

10  19  VR ITE ( *  ,  1  8  3  5  ) 

1  0  20  WRITE! *,  1  8  3  7  ) 

1  0  2  1  1  8  3  0  FORMAT!  1  (6)'/'  LOT  LOT  QUAN  SHIFT  F A CTOR '  , 3 X ,  1 SH I  FT  FACTOR'. 3  X , 
1  0  2  2  ♦  'ROTATION  F ACT '  , 2 X ,  1 ROTAT I  ON  FACT  > 

1023  1835  FORMAT! 1 X ,'*', 1 6X .' PRIME '  7X , 

1024  +  'SECOND  SOURC E '  , 5 X ,  ' PR  I  ME '  , 7 X .  ' SECOND  SOURCE') 

1025  1837  FORMAT! 4X . 'MAX  MIN', 

1026  ♦  2  X , 4  (  ' M I N  ML  MAX  '  )  > 

1027  DO  1850  1=1 , NLOT 

1  0  2  8  WRITE!*  1  8  40)  I  , QM (  I )  .  QS ( I  )  < SFP (  I  .  J  )  ,  J=  1  , 3  )  ,  ( SFSS <  I  .  J  )  .  J= 1  ,  3  )  , 

1  0  2  9  *  ! ROTP ( I  J )  ,  J=  1  ,  3  )  ,  ( ROTSS! I  . J  )  , J=  1  ,  3 > 

1  0  3  0  1  8  4  0  FORMAT! I  2 ,  IX , F5  0.1X.F5  0  .  1  2  <  1  X  ,  F  4  2)) 

1031  1850  CONTINUE 

1032  1860  WRITE!*, 1870) 

1033  1870  FORMAT! // 1 X ,' ENTER  THE  NUMBER  IN  THE  <  )  THAT  ', 

1034  +  'CORRESPONDS' /IX, 'TO  THE  LINE  YOU  WANT  TO  MODIFY  ', 

1035  +  /IX,  'A  ZERO  (0)  ABORTS  MODIFICATION  ') 

1036  1875  FORMAT! 16) 

1  0  3  7  READ!*,  1875JLINE 

1038  if  (  line  EQ  0  )  return 

1039  IF  (  (  LINE  LT  1  )  OR  (  LINE  CT  6  )  )  GOTO  1060 

1040  I F ( L I NE  NE  1 ) CO  TO  1890 

1041  WR ITE ( * . 1 880 ) 

1  0  4  2  1  8  8  0  FORMAT!  / 1 X  PLEASE  INPUT  THE  NEW  NUMBER  OF  LOTS') 

1  0  4  3  READ!  *,  1  8  7  5  )NLOTM 

1044  I F ! NLOTM  GT  NLOTJCALL  CREATE ( L 1 NE , NLOTP , NLOTH ) 

1045  NLOT.NLOTM 

1046  GO  TO  1920 

1047  1890  IF! LINE  NE  6 ) GO  TO  1910 

1048  WRITE <*, 1 900 ) 

1049  1900  FORMAT! / 1 X , 'WHAT  LOT  NUMBER  DO  YOU  WANT  TO  MODIFY') 

1  0  5  0  READ!  *  .  1  8  7  5  ) LOTN 

1051  CALL  CREATE ( L INE , LOTN , LOTN ) 

1052  CO  TO  1920 

1053  1910  CALL  CR EATE ( L I NE , NLOT , NLOT ) 

1054  1920  WRITE! * , 1930) 

1  0  5  5  1  9  3  0  FORMAT!  Ill  1 X ,' ANY  MORE  CHANGES  <Y,N>  >') 


1056 

READ!  *  .  1  9  4  0  JANS 

105  7 

1940 

FORMAT! A1 ) 

1050 

IF  (  <  ANS  EQ  Y' 

)  OR 

!  ANS  EQ 

'V  > 

)  GOTO  1860 

1059 

CALL  RWRITE 

1060 

C  *  *  *  * 

Ml  =0 

106  1 

c  *  *  *  • 

M  2  =  0 

1062 

c  *  *  *  * 

M  3  *  0 

106  3 

RETURN 

10  6  4 

END 

Name 

Type 

ACLOT 

R  E  A  L  *  8 

ALUC 

R  E  A  L  *  8 

ANS 

CHAR*  1  2 

APUCL 

REAL'S 

ASUCL 

REAL'S 

AVG 

REAL'S 

BP 

REAL'S 

Offset  P  Class 
2992  / RD  / 

3192  /RD  / 

10  12  9 

3392  /RD  / 

3  5  9  2  / R  D  / 


/RD  / 


1  «4 
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BSS 

REAL'S 

1  68 

/RD 

/ 

CIP 

REAL'S 

96 

/RD 

/ 

CISS 

REAL'S 

1  2  0 

/RD 

/ 

COST 

REAL  »  8 

CVP 

REAL'S 

8  7  4  0 

DISC 

REAL 

8  9  4  0 

FID 

REAL'S 

0 

/RD 

/ 

FNAME 

CHAR'  1 2 

3  7  9  2 

/RD 

/ 

I 

I NTEC  ER  *  4 

9  7  6  8 

IDAY 

I NTECER  »  2 

38  12 

/RD 

/ 

IMONTH 

INTEGER  *  2 

38  10 

'RD 

/ 

I  YEAR 

I NTECER  *  2 

3  8  0  8 

/RD 

/ 

J 

INTEGER*  4 

9  14  4 

LINE 

I NTECER  *  4 

9  9  9  2 

LOTN 

I NTEC  ER  *  4 

1  0  0  9  0 

NLN 

I NTECER  *  4 

9  102 

NLOT 

I NTEC  ER  *  4 

3  8  0  4 

/  RD 

/ 

NLOTM 

I NTECER  *  4 

1  0  0  4  0 

NLOTP 

I NTECER  *  4 

9  106 

PAVC 

RE'L'S 

tint 

PCOST 

REAL'S 

«  t  «  ft  t 

PFUC 

R  EAL  *  8 

*  t  *  «  « 

PPCOST 

REAL'S 

PV 

R  E  A  L  *  8 

t  t  ft  ft  ft 

QM 

REAL*  8 

192 

/RD 

/ 

OS 

REAL'S 

392 

/RD 

/ 

ROTP 

REAL'S 

1792 

'  RD 

1 

ROTPT 

R  E  A  L  *  8 

8  5  4  0 

ROTSS 

REAL'S 

2  3  9  2 

/RD 

1 

ROTSST 

REAL'S 

8  3  4  0 

SA  VC 

R  E  A  L  *  8 

SCOST 

REAL'S 

SFP 

REAL'S 

392 

/RD 

/ 

SFPT 

REAL'S 

8  14  0 

SFSS 

REAL'S 

1  1  ’2 

/RD 

/ 

SFSST 

REAL'8 

7  9  4  0 

SSCOST 

REAL'S 

SSFUC 

REAL'S 

YP 

REAL'8 

YS 

REAL'S 

1  0  6  3  C  •  ' 
1  0  6  6  C  * 

1067  c* 

1068  C* 

1  0  6«  C' 
1070  C* 


1071  O 


-THIS  SUBROUTINE  KEEPS  TRACK  OF  INDIVIDUAL  OUTPUT 
PACES  THE  ARCUMENT  IS  THE  RUNNING  PACE  NUMBER  AND 
LINE  COUNT 


SUBROUTINE  PACE(IPACE.LC,TCK. IDEV! 

COMMON/ RD / F  I D  <  1  2  >  .  C  I  P ( 3  )  , C I 5S  <  3  >  .  B  P ( 3 )  BSS(3>.QM<25' 

*QS< 23  !  .  SFP ( 25  .  3 >  ,  SFSSt 2 3  .  3 >  . ROTP (  2  5  3)  ROTSS(  2  5  3  )  ACLOT'25 

♦  A  LUC (25)  APUCL < 25 >  . ASUCL < 2 5  )  .  FNAME  NLOT .  I  YEAR  IMONTH  IDAY 
REAL'S  PV , PCOST , SCOST  FID  CIP  CISS  ACLOT  ALUC  BP.BSS  SFF  SFSS 

♦  ROTP  ROTSS  5  F  PT  (  2  5  '  SFSST'  23'  ROTPT'25)  RQTSST'23>  QM  OS  C’. 


♦  AVC , COST , PPCOST  SSCOST  PAVC  SAVG  YP  YS.SSFUC 

CHARAC  TER  *  1 2  FNAME 
I NTEC  ER  *  2  I  YEAR  IMONTH,  IDAY 
I  F  !TCK  EQ  1  >  COTO  2  0  0  5 


PFUC  ASUCL  AFUCL 


if; 


DLine#l  7  IBH  Petsonal  Computer  FORTRAN  Cup: 

1  0  8  2  WR 1TE <  IDEV  ,  2  0  0  0  > 

1  0  8  3  2  0  00  FORMAT  <  7  9  <  1 H-  )  ) 

10  8  4  2  0  0  I  F  (  I  PACE  EQ  '  E  '  )  RETURN 

1  0  8  5  I PAGE= I  PAGE*  1 

10  8  4  LC  =  2 

108?  2  0  0  4  FORMAT (  1  H , A 4  > 

1  0  88  WRITE! IDEV, 2010)  I  MONTH ,  1 D A Y  ,  I  Y E AR  ,  I  P A C E 

108?  2010  FORMAT (IX,  'RUN  DATE  (MO/DY/YR) - >  ,  I  2  ,  '  /  '  ,  I  2  ,  '  /  '  ,  M  , 

1  0  90  ♦  1  OX ' PAGE  ',12) 

1091  IF  ( IPACE  GT  1 )  GOTO  2015 

1092  WRITE  (IDEV, 2013) 

1  0  9  3  2  0  1  3  FORMAT ( / /  ) 

1094  LC  =  LC  ♦  2 

1095  2015  RETURN 

1094  END 


Name 

Type 

Offset 

P 

Class 

AC  L  OT 

REAL*  8 

2  9  92 

/  RD 

/ 

ALUC 

REAL  *  8 

3  192 

/ RD 

/ 

APUCI. 

REAL*  8 

3  3  9  2 

/RD 

/ 

ASUCL 

REAL'S 

3  5  9  2 

/RD 

/ 

AVC 

REAL'S 

ft  ft  ft  *  ft 

BP 

REAL*  8 

144 

/RD 

/ 

BSS 

REAL'S 

!  4  8 

/RD 

/ 

C  IP 

REAL'S 

94 

/RD 

/ 

CISS 

REAL'S 

1  20 

/RD 

/ 

COST 

REAL'S 

*  ft  *  ft  ft 

CVP 

REAL*  8 

1  0944 

FID 

REAL'S 

0 

/RD 

/ 

FNAME 

CHAR' 1 2 

3  7  9  2 

/RD 

/ 

IDAY 

INTEGER*  2 

3812 

/RD 

/ 

IDEV 

INTEGER*  4 

1  2 

ft 

I  MONTH 

I NTEG  ER  *  2 

38  10 

/RD 

/ 

IPACE 

INTEGER' 4 

0 

ft 

I  YEAR 

I NTEG  ER  *  2 

3  8  0  8 

/  RD 

/ 

LC 

INTECER' 4 

4 

ft 

NLOT 

INTECER' 4 

3  8  0  4 

/RD 

/ 

PA  VC 

REAL'S 

«  •  *  ft  » 

PCOST 

REALM 

mit 

PFUC 

REALM 

•  *  •  ft  * 

P  PCOST 

REALM 

•  *  •  *  • 

PV 

REALM 

•  ft  •  ft  * 

QM 

REALM 

1  92 

/RD 

/ 

QS 

REALM 

392 

/RD 

/ 

ROTP 

REALM 

1792 

/RD 

/ 

ROTPT 

REALM 

1  0  7  4  4 

ROTSS 

REALM 

2  3  9  2 

/RD 

/ 

ROTSST 

REALM 

1  0  5  4  4 

S  A  VC 

REALM 

SCOST 

REALM 

SFP 

REAL  M 

5?2 

/RD 

i 

SFPT 

REALM 

1  0  3  4  4 

SFSS 

REAL  M 

!  1  »2 

/RD 

/ 

sfsst 

REALM 

10  14  4 

SGCOST 

REALM 

SSFUC 

REALM 

TCK 

REAL 

8 

ft 

YP 

REALM 

.  .  „ 

>/V 
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1097  c*********************** 

1098  C* 

1  099  C*  HEAD  1 . ---THIS  SUBROUTINE  PRINTS  THE  HEADING  ASSOCIATED  WITH 

1100  C«  SIMULATION  LOT  DATA  RESULTS  IT  IS  CALLED  WHENEVER 

1101  C*  A  PAGE  BREAK  OCCURS  IN  THE  GIVEN  PORTION  OF  THE 

1102  C«  OUTPUT 

1103  C* 


1104  C **********************  * 

1105  SUBROUTINE  HEADl(IDEV) 

1104  WRITE! I  DEV , 2  0  2  0  ) 

1  1  07  2  0  2  0  FORMAT! / 1 X PRIME  SPLIT  WI N *  ,  3 2 X ,  ' AVERACE  UNIT  COSTS'/IX, 

1108  +  '  PERCENTAGE  ’,17X, 'AVERAGE  LOT‘,2X,' - 

1109  ♦  ' . . '/ 1 X LOT  3X 5X ,' LOT  QUANTITY 5X COST' , 7X , 

1110  +  1  PRIME 3X SECOND  SOURC E 1  , 2 X ,  ' COMPOS  I TE ' / 1 X ,  ' - ',!X.' - 

till  ♦  2  X  ,  ' - '  ,  2  X  ,  ‘ - '  ,  2  X  ,  ' - '  ,  2  X  , 

1112  +  ' - '  ,  2X  ,  ’ - 1  ) 

1113  RETURN 

1114  END 

Name  Type  Offset  P  Class 

IDEV  INTEGER*  4  0  * 


1115  C*********************** 


1114  C* 

1117  C*  HEAD2 . THIS  SUBROUTINE  PRINTS  THE  HEADING  ASSOCIATED  WITH 

1118  C*  THE  DATA  FILE  DISPLAY  IT  IS  CALLED  FOR  EACH  PAGE 

1119  C*  BREAK 

1120  C* 

1121  C*»***»* **************** 


1122  SUBROUTINE  HEAD2  < IDEV) 

1123  WRITE! IDEV. 2030) 

1  1  2  4  2  0  3  0  FORMAT!  / 1 4X SHI  FT  F ACTOR ’  ,  3 X  .  ' SH I  FT  F ACTOR '  , 3 X ,  ' ROTAT I  ON  FACT' 
1125  ♦  2  X .  'ROTATION  F ACT '  / l X ,  ' LOT  LOT  QUAN '  , 5 X ,  ' PR  I  ME '  , 7 X . 

1124  ♦  'SECOND  SOURCE ', 5X ,' PR IME ', 7X SECOND  SOUR C E '  / 2 X .  '  • '  ,  3 X 

1127  ♦  'MAX  MIN'  ,  2X,  4!  'MIN  M  L  MAX  '  )  /  1 X  ,  ' - '  ,  1 X  ,  ' - - 

1128  ♦  4!  '  . . . '  )  ) 

1129  RETURN 

1130  END 

Name  Type  Offset  P  Class 

IDEV  I  NT  E  C  E  R  *  4  0  * 


1131  C*********************** 

1132  C* 

1133  C*  ENDP - THIS  SUBROUTINE  PADS  THE  BOTTOM  OF  EACH  PACE  WITH  BLANK 

1134  C*  LINES  TO  INSURE  EACH  PACE  IS  PRINTED  IN  8  1/2  X  11  INCH 

1135  C*  FORMAT 

1134  C* 

1137  c********************** 

1138  SUBROUTINE  ENDP'LC  TCK  ITT  IDEV' 

1139  IF  (TCK.  EQ  O'  COTO  2  0  3  7 

1  140  WRITE! IDEV  2  0  3  5  ' 


Pig*  27 

11-22-85 
17  19  n 

D  Line#  1  7  IBM  Person*!  Computer  FORTRAN  Compiler  V2  00 


1M1 

2  0  3  3 

FORMAT ( 1 H 1 ) 

1142 

RETURN 

1143 

2  0  3  7 

LC  *  LC  ♦  1 

1144 

DO  2050  I  * L C , 6  7  2 

1  143 

WRITE ( IDEV  ,  2  0  4  0  ) 

114  6 

2040 

FORMAT ( / ) 

1147 

2050 

CONTINUE 

1  14  8 

RETURN 

1  149 

END 

N*ae 

Type 

Offset 

P 

I 

INTEGER *4 

11686 

IDEV 

INTEGERM 

1  2 

* 

ITT 

INTECERM 

8 

t 

LC 

INTEGERM 

0 

• 

TCK 

REAL 

4 

t 

1150 

C* 

113  1 

c* 

i  t  V  i 

1133 

c* 

1154 

c* 

1135 

c* 

GetFile  -  This  routine  is 

used  to  open  previously  eiisting 

1156 

c* 

d*t*  files  If  given  a  non-eiistent 

filename  0 

*  t  F i  1  e  will 

115' 

c  * 

prompt  for  *  new  filename 

until  it  g  e 

t  s  an  ainl 

i  n  q  f  i  .  t 

1158 

c* 

113  9 

c» 

GetFile  gets  the  filename 

and  channel 

passed  as 

paraiatiri 

1160 

c* 

rtther  th»n  through  COMMON 

It  changes  the  COMMON  filename 

116  1 

c* 

DON'T.  DON'T  DON'T  use  i  t 

to  change 

channel  'uni 

t  numbe  r  * 

116  2 

c* 

116  3 

c* 

NOTE  the  function  FindFile 

CAN'T  us* 

the  COMMON 

filename 

116  4 

c  • 

116  6 

c  * 

116? 

c  • 

116  8 

SUBROUTINE  GetFile'  f  i 1 en t me 

channel 

116« 

CHARACTER*12  f i 1 (nisi 

1170 

I  NTE  G  ER*2  c  lunni  1 

1  1  ’  1 

c  • 

1172 

r  • 

local  variables 

117  3 

CHARACTER*! 2  TempNameS' r  ing 

117  4 

I  NT  EGER*2  S'ringLeng'h  Par 

s*F . i anise 

1175 

LOCI  CALM  F  i  n  d  F  i  2  e 

1  1  '6 

c  * 

1  1  '  7 

c  * 

begin 

117  8 

1  3  3 

S'ringLeng'h  .  PimiFi  linate  !  .  .  e  -  a  m  e 

11*’^ 

TiepNaeeS' r inj  «  ! . . enter 

s 

mo  : • 

if  ’he  file 

•  «  ;  *  •  % 

\  ' 

;  a : 

IF  F  .  n  d  F  i 

i 

1  92 

3  CTO  2  03 

:  ! 

111  c » 

•ben  ope" 

» 

* 

i»4  ■  : 

'PEN  *■  a  - 

“  •  .  F  i  r  -  *  •  *  a  m  9 

:  9  ‘ 

R  ET" R  N 

1  '  17'. 


#'  ‘  *  ^  4  <  ‘9  \  9 


9  «  9  %  ®  9 

-p : • 


*  »i 


* "  n# 


7 
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119  1 

1192  400 

1193  C* 

1194 

1195 
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FORMAT!  12,  'What  lile  would  you  like  to  use’  '  ) 

READ!  *.  400  )  filename 
FORMAT!  A 1 2  > 

check  to  see  if  this  file  is  legit 

COTO  100 

END 


Name  Type 

CHANNE  INTECER*  2 
FILENA  CHAR*  1  2 

FINDri  LOCICAL*2 
PARSEF  I NTEC  ER  *  2 
STRING  I NTEC  ER  *  2 
TEMPNA  CHAR*  1  2 


Offset  P  Class 

4  » 

0  * 

FUNCTION 

FUNCTION 

11894 

11896 


1196  C 
119  1  C 


119  9 

r  #  • 

1  9  9 

C  * 

12  00 

c* 

120  1 

c  * 

MakeF  i  1  e  -  -  - 

-  This  routine  i 

s  used  to  create  data 

files 

202 

c* 

If  the  file 

already 

exists. 

MakeFile  pr  omp  t  s  for 

2  0  3 

c* 

ptCBiss ion 

to  overwrite  the 

existing  file 

or  use 

2  3  4 

'  '  c 

r  t 

a  different 

f i  1 e  n  ame 

+  .  J 

2  C  t 

"  • 

F i 1 ename  and  channe 

1  number 

are  passed  as 

parameters 

:  o ' 

c  • 

rather  than 

through 

COMMON 

The  COMMON  f i 1 ename 

Will 

12  08 

?  ^  v 

0  • 

be  changed 

DON'T 

change  channel  numbers 

12  13 

c  • 

r  • 

NOTE  the  function 

F  i  n  d  F  i  1  e 

CAN'T  use  the 

COMMON 

f  i  1  ename 

SUBROUTINE  MakeFile!  filename,  channel  ) 

CHARACTER* 12  filename 
I NTEC  ER*2  channel 

local  variables 
CHARACTER*12  TempName S t r  i  n g 
CHARACTERM  response 

INTEGER*!  5'ringLength  P a r s e F l 1 en ame 
LOG  I  CAL • 2  F 1 ndF i 1 e 

begin 

3  •  r  i  r.  q  L  e  n  g  *  h  *  ParseFiIename  filename  ' 

TempNameSfring  »  filename 
if  'he  file  exists 

IF  FindFil#'  SfringLeng'h  Tern pN a m e S t r  i  n g  1  )  GOTO  300 

'hen  ask  permission  to  overwrite  it 
e.se  -an  he  iegi'imately  created 

PEN  *  h a  n  n  e 1  FILE  *  filename  STATUS  =  NEW'  ) 

RETURN 

;;  >r  'h*  file  e«is's  ask  for  permission  to  overwrite 

: ~C  '  432  filename 

F  0  “  A  7  :  T  T  h.  e  f  ;  I  e  A  1  2  already  eiists 


»-n»  a’  •i,wrm  rrfmTr;  v.a  r.'r.'r;  .r  ^  rr  V~7Tr7V>  T?  7*T7  *.*  7*?  *J  .' Ji  *.u»Ji  r»*7 '  t  »n  ■>  ■  i*;1*  v»  v»  '.~*  t1 '.' 
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D  Line* 

1  7 
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00 

1238 

450 

FORMAT (  IX,  'Do  you  want  to  remake  it»  (  Y  or  N  )'  ) 

1239 

READ!  *,  500  )  response 

1240 

500 

FORMAT (  A 1  ) 

1241 

C* 

if  permission  given  then  recreate  the  file 

1242 

IF  (  (  response  EQ  ' Y '  )  OR  <  response  EQ  y'  )  /  COTO 

200 

1243 

C* 

else  get  a  new  filename 

1244 

WRITE!  *,  400  ) 

1245 

400 

FORMAT!  /IX,  'Type  the  new  filename  in  ’  ) 

1244 

READ!  *,  700  )  filename 

1247 

700 

FORMAT!  A 1 2  ) 

1248 

C* 

check  to  see  if  this  file  is  legit 

1249 

GOTO  100 

1250 

END 

Name 

Type 

Offset  P  Class 

CHANNE 

INTEGER  *  2 

4  * 

F I  LENA 

CHARM  2 

0  * 

F I NDF I 

LOG  I  CAL  *  2 

PARSEF 

INTEGER*  2 

RESPON 

CHAR*  1 

12145 

STRINC 

INTEGER*  2 

1  2  05  8 

TEMPNA 

CHAR*  1  2 

1  2  0  4  0 

125  1 

C* 

12  52 

C* 

12  5  3 

c  *  t 

1254 

C* 

1255 

c* 

PatseF  i  lename  scans  the  F i 1 enameSt r i ng 

for  blanks  to  see  how 

1254 

c* 

long  the  string  is  DO  NOT  MODIFY  the 

string,  ParseFilename 

1257 

c* 

is  effectively  EQU I VAL ENC E i ng  Csicl  the  filename  in  COMMON 

1258 

c« 

12  5  9 

c «  * 

1260 

c  * 

12  6  1 

c* 

1242 

INTEGER*  2  FUNCTION  Pa r s e F i 1 e n ame <  F i I enameS t r i ng  ) 

1263 

CHARACTER  *  1  Filenamestring!  12  ) 

1264 

c* 

1265 

c* 

local  variables 

12  66 

INTECER*  2  i 

126  7 

CHARACTER  *  1  space 

1268 

c* 

1269 

c* 

local  constants 

12  70 

DATA  space  /  / 

12  7  1 

c* 

12  72 

c* 

begin 

1273 

c* 

1274 

DO  100  i  «  1  ,  12 

1 

1275 

c* 

■f  character  is  an  ascii  space. 

1 

12  76 

IF  (  FilenameS>ring(  l  )  NE  space  > 

COTO  100 

1 

1277 

c« 

then  end-o f -s t r  i  ng  is 

found 

1 

1278 

P  a  r  s  e  F i 1 en  ame  *  i  -  1 

1 

1279 

RETURN 

1 

1280 

c* 

else  keep  looking 

1 

128  1 

100 

CONTINUE 

12  82 

ParseFilename  *  12 

1283 

200 

RETURN 

1284 

END 

vn  in  r»  ve  r 


i 

*V 


fi'ipj  *«»_»'  ji»j w1 »  vwtt' »■  w:  ir  r.'p<j r j  *u ■  j ■ « ■  i n* «■ rr '■  v 


D  Line*  1  7 

Name  Type 

FILENA  CHAH  *  1 
I  INTEGER *2 

SPACE  CHARM 
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Offset  P  Class 

0  » 

1  2  3  2  2 
1  2  3  2  0 


1285  C* 
1284  C* 


1287 

c**» 

tt! 

1288 

C* 

1289 

C* 

LOG  I  CAL  *  2  FUNCTION  FindFilet 

Str ingLength, 

F  i  1  enameSt  ring  ) 

1290 

C* 

INTEGER»2  Stringlength 

1291 

C* 

CHARACTERM2  F  i  1  e  n  ame  S  t  r  i  n  g 

1292 

C* 

1293 

C* 

is  external  to  this  source  f 

lie  because 

1 1 

was  written 

1294 

C* 

i n  Assemb 1 er 

1295 

c* 

1294 

c* 

NOTE  the  parameters  passed 

to  it  CAN'T 

be 

in  COMMON 

1297 

12  98 

c* 

c  *  *  * 

it  1 1 

1  2  9  9  C« 
1300  C* 


Name 

Type 

Site 

Class 

A 

4  080  8 

COMMON 

CREATE 

SUBROUTINE 

ENDP 

SUBROUTINE 

FINDFI 

LOG  I  CAL  *  2 

FUNCTION 

GETDAT 

SUBROUTINE 

CETFIL 

SUBROUTINE 

HE  AD  1 

SUBROUTINE 

HEAD2 

SUBROUTINE 

LINE 

SUBROUTINE 

MAIN 

PROGRAM 

MAKEF  I 

SUBROUTINE 

MODIFY 

SUBROUTINE 

PACE 

SUBROUTINE 

PARSEF 

INTEGER*  2 

FUNCTION 

PLOTA 

SUBROUTINE 

RANDOM 

REAL‘8 

FUNCTION 

RD 

38  14 

COMMON 

RREAD 

SUBROUTINE 

RVR ITE 

SUBROUTINE 

SCALE 

SUBROUTINE 

Fass  One 

No 

Errors 

Detected 

1  300 

Source 

Lines 

S  N  •. 


APPEND  I X  D 


CDAPM  TECHNICAL  REFERENCE 


1.  The  Competition  Decision-Assist  Package  for  the  Microcomputer  (CDAPM) 
was  written  in  FORTRAN  for  the  IBM  Personal  Computer  FORTRAN  Compiler 
Version  2.0. 

2.  To  get  results  as  accurate  and  consistent  as  possible,  CDAPM  uses  the 
8087-math  options  built  into  the  compiler.  Since  only  a  few  machines  in 
the  field  have  8087s  or  the  like,  CDAPM  will  emulate  the  8087  when  the  chip 
is  not  there.  Emulation  costs  execution  speed,  but  APRO  feels  that  consis¬ 
tency  in  CDAPM  is  more  important  than  speed. 

3.  CDAPM  has  been  tried  out  on  several  different  makes  of  PC;  CDAPM  works 
on  all  the  computers  it  was  fried  on.  APRO  lues  not  mean  ‘i  si’ghf  any 
manufacturer  whose  computer  is  not  listed  below;  the  machines  listed  below 
are  simply  those  that  were  available  around  Fort  Lpp,  VA  for  APRO  to  use. 


Computer 


Run  Time  I  1001  Cycles) 


IBM  PC  w/PC-DOS  2.1  44  min 
Wyse  1100-1  PC  w./MS-OOS  2.11  43  min 
Compaq  Plus  w/MS-DOS  2.11  48  min 
Compaq  Plus  w/MS-DOS  2.11;  w/8087  7  min 
Compaq  Deskpro  w/MS-DOS  3.0  4  min 
Compaq  Deskpro  w/MS-DOS  3.0;  8  23  min 
Tandy  1000  w/MS-DOS  2.1  S2  mm 
Leading  Edge  PC  w/PC-DOS  2.1  M  min 
Leading  Edge  PC  w/MS-DOS  2.11  id  mm 


These  are  not  intended  to  be  defini*ive  heni.nma  rt  s  ,  in  sever-*!  ases  ,  a 
ground  processes  were  njnn  i  ng  .  hut  *  h»»s*»  *  ’me  gpn..r  * :  1  ,  •  m  >  •  **..  <♦ 

to  expect.  dsers  Shoijl  -1  not  e  f  >n  ;  lOVrpn  O  .1.  r  , 

charjed"  p  r  o<  es s o r  .-hip  makes. 
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